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EDITORIAL JOTTINGS 


SPECIAL OFFERS 

Included with this, the first issue of volume 5 of BEEBUG, is a 
complete index to volume 4. 

This has been carefully arranged to assist you in looking up the 
wealth of information that we have published over the last 12 
months. 

Of course, if you want a really comprehensive and fast access 
index to all the past issues of BEEBUG then Magscan, our 
magazine bibliography on a disc, will be the answer. The whole 
of volume 4 is now available on a single disc to add to the 
original volumes 1 to 3. This is available now from our High 
Wycombe address at a cost of £4.50 plus 50p post & packing. 


One of the most fascinating devices to have come our way for 
some time is the Barry Box (designed and made by Barry would 
you believe it) which we review in this issue. We have arranged 
a special discount price for BEEBUG members of just £71.95, 
saving £8 on the normal retail price. The Barry Box is available 
direct from the supplier only (see review for address) and you 
must quote your membership number with your order. The 
special members price will be available only for a limited period 
so order now 

MAGAZINE CASSETTE/DISC 

This month's magazine cassette/disc has to be one of the best 
yet for value with a total of 20 programs and files. Apart from 
all the other programs, it includes the complete BEEBUG Filer 
program with the latest update, a mail-merge option, and the 
USI utilities (if you missed them before) which are the basis of 
the Phone Book application described this month. All this for 
just £3.00 (cassette) or £4.75 (disc) plus 50p post and packing. 
Full details are on the inside back cover. 

BEEBUGSOFT DEMO DISC 

Don't forget the new BEEBUGSOFT Demo disc launched in 
March. Check this month's codebreaker number and see if you 
have won free software of your choice. See the back cover for 
all the details 

PROGRAM CLASSIFICATION 

All programs in the magazine, and on the magazine cassette/ 
disc, are marked with the symbols shown below. An uncrossed 
symbol indicates full working, a single line through a symbol 
shows partial working for that configuration (normally some 
modifications will be required), and a cross through a 
indicates a program that will not work on that type of system. 
There is a symbol for the B+ which includes the 128K version, 
and a symbol for the new Master series. 


Basic 1 E Electron C 
Basic Il II Disc n 
Tube I Cassette [EY 
Model B+ E Master 128 M 


News News News News News News Ne 


NEW PENMEN 
The Penman Plotter (see 


review in  BEEBUG Vol.4 
No.2) has been joined by 
some new companions capable 
of even more tricks. The 
Penman II series is capable 
of drawings up to AØ size 
(that's about 4ft x 3ft). 


Looking very similar to 
the original Penman, the 
series II models can plot 
on semi-transparent mat- 
erials such as tracing 
paper or drafting film and 
get their bearings from a 
black and white checker- 
board placed underneath. On 
opaque materials the 
plotter is returned to the 
corners of the paper every 
So often. Prices are £395 
for the IIB (A3 plots), 
£595 for the IID (Al plots) 
and £695 for the IIE (AØ 
plots). Further details 
from Penman on Ø9Ø3-2Ø9Ø81. 


SELF CONTROL 


If the Beeb's humble 
User Port does not match up 
with your 'expectations then 
Claydale's in-out modules 


4 


answer. Up to 
eight modules can be 
plugged into the lMHz bus 
giving a total of 64 inputs 
and 64 outputs all 
controllable from Basic or 
machine code with the 
routines supplied. Claydale 
also offer a range of other 
control modules to control 


may be the 


stepper motors, servo 
units, and so on. Further 
details from Claydale on 


Ø6Ø3-868423. 
CIVIL ACTION 


The latest ROM from 
Vine Micros was written 
with the help of Civil 


Engineers at the University 
of Southampton. Called 
'Matrix', the ROM 
simplifies operations on 
matrices from within Basic 
programs and will also 
solve linear simultaneous 
equations. Just for luck 
two other features - 
variable name swapping and 
a special four significant 
figure number print 
formatting - have also been 
added. Matrix costs £41.40. 
Further details from Vine 
on 0304-812276. 


MASTER STROKES 


First off the mark with 
such an announcement, Level 
9 software reports that 
cassette versions of the 
following adventure games 
work perfectly on the 
Master. Colossal Adventure, 
Adventure Quest, Dungeon 


Adventure, Return to Eden, 
The Worm in Paradise, and 
Red Moon. Level 9 is on 


8494-26871. AMX too is 
quick to point out that 
Pagemaker (see the review 
in BEEBUG Vol.4 No.9) is 
available for the Master. 


WORD GROUP 


Members keen on word 
processors can now join a 
user group devoted to that 
application. The group pub- 
lish a bi-monthly news- 
letter called 'Word Proc- 
essing’ which covers tutor- 
ials and hints in WP on the 
BBC, Amstrad and Atari 
micros. Subscription costs 
£6 a year. Further details 
from Word Processing, PO 
Box 67, Wolverhampton, West 
Midlands. 

NEW BROM SWEEPS CLEAN 

Clares has been busy 
recently with a plethora of 
updated goodies. Brom Plus 
now contains sections 
dealing with disc and RAM 
in addition to the original 
Basic utilities. Brom Plus 
costs £34.50 and the old 
Brom is reduced to £20. 


Fontwise Plus is the 
new version of Clares' 
Fontwise ROM with extra 
formatting commands, two 
extra fonts, faster 
printing, and it's View 
compatible. Fontwise Plus 
costs £28 - and the old 
Fontwise £12. To the 
Beta-Accounts series Clares 
has added Statement and 
Stock control modules which 
integrate with the rest of 
the series (including 
Beta-Base reviewed in Vol.3 
No.9). 


Finally, Macrom is a 
macro assembler for all 
Beebs including the Master. 
Macrom will cope with the 
extended Op Codes used in 
the Master's processor and 
will assemble to and from 
memory or disc.  Macrom 
costs £40. Further details 
on all these from Clares on 
8696-48511. =] 
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Romit Exotic Titles 


The !TITLE option in 
RomIt allows any  RomIt- 
created Eprom to send a 
title message to the screen 
when the computer is turned 
on, and when Break is 
pressed. But the flexi- 
bility built into this 
option allows the title 
"message" to be any series 
of VDU commands, regardless 
of how complex these may 
be. This means that you can 
not only force (a mode 
change, but draw any 
design, and print any text 
that you wish on Break and 
switch-on. 


In fact you can create 
your exotic title from any 
graphics program that you 
may have. Suppose you have 
a 50 line program that 
draws a particular design 
on the screen, and you 
would like this to appear 
as the computer's start-up 
Screen. Just add the 
following commands around 
your graphics program: 


10*RAM 
11*SPOOL !TITLEX 
12VDU22,N (Where N is 


the graphics mode used) 


..Main Graphics Program 
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1ØØ1 *SPOOL 
1ØØ2*RTITLE 


Now run this program, 
and ignore the screen 
display. When it has 
finished, it will have 
created the required TITLE 
file in sideways Ram. Just 
press Break and the screen 


should be recreated. The 
file is now ready for 
romming; and of course you 


can use *FILE or *BLOCK to 


save it away to disc or 
cassette if you are not 
ready to rom it at this 
point. 
Spelicheck III 50% 
Speed Increase 

You may be able to 
increase the speed of 
Spellcheck quite dramatic- 
ally. Acorn's later 
1.2 DNFS (disc filing 
system) can give consider- 


able speed advantages with 
Spellcheck (all versions). 
Tests with Spellcheck III 
(without Second Processor) 


gave timings of 
approximately 14 words per 
second when using the 
standard Acorn 0.9 DFS. 
This increased to an 
impressive 27 words per 
second with the 1.2 DNFS 
ROM. Even greater speeds 


are obtainable by using the 
6502 Second Processor. 


Exmon II. Machine Code 
for Beginners 


The Beebugsoft customer 
support team are often 
asked the best way to get 
started with machine code. 
It may seem a daunting 


task, but experience has 
shown us that a good 
introductory book and a 


means of easily ‘playing 
around' with machine code 
is the solution. We would 
recommend Assembly Language 


Programming for the BBC 
Microcomputer by Tan 
Birnabaum, and our own 


Exmon II. Normally the book 
costs £8.95 from Beebug 
Retail, and Exmon II £24 
(to members). But members 
can now get this special 
'beginners' package from 
BEEBUG Retail for £29 plus 
£1.00 p&p. This special 
offer closes 30th May 1986. 


Beebugsoft Information 
Sheets 


Several free 
ion sheets 
from 


giving 


informat- 
are available 
Customer Support 
additional help on 
various aspects of 
Beebugsoft software. These 
currently include: 


Using Wordease with 
Hi-Wordwise 


Using Wordease Disc Menu 
option on single drives 


Sleuth Dual Screens 
explained 


Using Paintbox II on the Bt 


Upgrading Magscan without a 
wordprocessor 


Masterfile II and BREAK key 
Spellcheck on the Opus DDOS 
Spellcheck III words in Rom 
Freelance Application Form 

To obtain your sheet, 
send a stamped addressed 
envelope, to Beebugsoft, PO 


Box 50, Holywell Hill, St 
Albans, Herts ALI 3YS. 
= 


MOo+IIH=C 


MANDELBROT 
GRAPHICS 


Occasionally, some of the more 
obscure aspects of science acquire 
considerable popular interest. The so- 
called Mandelbrot Set is one such 
example, offering endless variations 
and stunning graphics that will keep 
you enthralled for hours. Kate Crennell 
has all the details. 


Generating attractive screen displays 
is something that many BBC micro users 
like doing. Although the Beeb is very 
capable at displaying the results, it is 
often the subject matter that provides the 
stumbling block. This program sorts that 
out very simply. It produces an infinite 
number of incredible screens of swirling 
and exploding colour that can be re-drawn 
and magnified as you want, to show their 
infinite detail. 


Although they appear almost random, 
the displays are based on the Mandelbrot 
Set - a mathematical set of numbers that 


you computer can generate and display on 
the screen in this fascinating way. 


The program will plot the Mandelbrot 
Set according to the basic square law 
(W^2), and also the cubic (W^3) and 
quartic (W"4) laws. All three produce 


similar pictures with a central black area 
surrounded by coloured bands. 


The next 
area is 
in 

ox 


the 


You can 'zoom' in on sections of the 
plot and replot them. Smaller and smaller 
areas can be studied, revealing the 
infinite detail of the pattern, until you 
reach the limit of your Beeb's accuracy or 
your own patience. 


When you have tyoed in the program and 
saved a copy, run it, following the 
on-screen instructions, using the square 
law, mode 2, and all the default values 
(answer 'Y' to the questions). This will 
draw the whole of the interesting area of 
the Mandelbrot Set. 


This takes a fair time (around 25 
minutes) so don't hold your breath. Fewer 
rows and columns mean less plotting time, 
but reduced detail. The maximum size in 
mode 2 is a square of side 128, and in 
mode 1 of side 256. It is usually possible 
to get a quick view of a plot using a side 
of 32. You are not limited to square 
plots; there is nothing to stop you trying 
distorted or rectangular ones. 


When the plot is finished you can save 
the picture to disc or cassette and then 
zoom in on a small section. The ‘'box' 
feature (offered after the save option) 
allows you to determine easily the area to 
view next. First a line is drawn on the 
Screen. Move the free end of this with the 
cursor keys to the bottom left of the area 
you want to view. Press L and then move to 
the top right corner and press R. Now that 
area will be enlarged to as near the size 
of the plotting window as is possible and 
drawn out on the screen. 


The most exciting pictures are found 
along the edges of the black central area, 
particularly in its deeper cracks. 
Minature copies of the Mandelbrot Set can 


be found using more iterations. In their 
cracks, you will find other minature 
copies, and in their cracks.... The edges 
have a 'fractal' structure which means 


that the edge never gets any smoother no 
matter how high the magnification becomes. 


You can alter the other parameters 
that make up the beauty of the finished 
plot. Firstly the resolution can be 
altered, but be warned that a mode 1 plot 
not only can be drawn in just four 
colours, but takes a VERY long time. The 
power of the equation used can also be 
changed. Again the higher power sets take 
longer to draw out. As well as determining 
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the area to draw with the box, you can 
simply specify co-ordinates. However, it 
is probably a good idea to stick to the 
box method until you are more familiar 


with the set. To help you in this the X 
co-ordinate of the left hand side, the 


width, the Y co-ordinate of the bottom, 
and the height of the current plot are all 
printed to the right of the plot window, 
along with the power of the equation, and 
the current row number being plotted. 


THE MATHEMATICS 

Mathematically, the Mandelbrot Set is 
at the centre of a plane of complex 
numbers (Z) and can be drawn by using the 
iterative formula W-W^2 +Z where W is also 
a complex number. Non-mathematicians (and 
that includes the Beeb) can think of Z as 
a point (X,Y) on the screen. Let W be 
another point (U,V) and then calculate new 
values of U and V using the formulae: 


newU = (oldU)^2 -(oldV)^2 + X 


new = 2 * (oldU) * (olaV) + Y 
Keep on re-calculating new values of U and 
V until: 

(newU)^2 + (new/)^2 > 4 
and count the number of iterations (the 
number of times the calculation is 
repeated). The number of iterations then 
determines the colour plotted at (X,Y) 
using a further set of rules. 


interesting parameters to 
probably the colours. The 


The most 
alter are 


different colours are used to represent 
different groups of iteration numbers, 
rather like contours represent the 


boundries between groups of heights. Which 
colours are used for which groups and the 
extent of each group can be specified. The 
program defaults to 8 groups, but up to 15 
can be used. Again these parameters are 
orinted at the side of the plot. 


At all times, while entering the 
parameters, pressing Escape will take you 
back to the previous screen, and the last 
Set of parameters. Pressing Escape during 
the plotting will end the plot and enable 
you to save the screen or specify a new 
box. 


SOME EXAMPLES 
A few good areas of the Mandelbrot Set 
to look at are as follows: 


With default iteration boundaries. 
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Left X Low Y width/height 
-0.24 -1.16 0.26 
-1.8 -0.07 0.07 


With iteration boundaries set to 0,10,13, 
19,25,30,35,40. 
Left X Low Y width/height 
-0.74 9.33 0.04 
-0.19 1.02 0,06 
DISC USERS 


Because of the length of the program, 
disc users without shadow RAM should set 
PAGE to &1200 (tyne: PAGE-81200 <Return>) 
before loading and running this program. 


FURTHER INFORMATION 

Those who wish to pursue this subject 
further may find the following references 
helpful: 


The Fractal Geometry of 
B.B.Mandelbrot, W.H.Freeman, 1982. 


Nature, 


Scientific American, August 1985, Computer 
Recreations page 8. 


PROGRAM NOTES 


Line 290 saves the screen display to a 


file. You may want to add a screen 
compression routine here (such as was 
described in BEEBUG Vol.4 No.6) to save 
storage space. A corresponding 
de-compression routine will then be 
required to re-display the screen. 
PROCmandel performs the algebraic 
iterations to calculate the colour, and 
plots each point in the area. Replacing 


this procedure with 


The main variables used are: 
M% - mode (1 or 2) 
T$ - -1,0 or 1 for type of power law 
(2,3 or 4) 

C%+1 - number of colours in use 
(colours and iteration bounds 
are stored as bytes in page &C) 

X%+1 - number of columns to plot 

Y%+1 - number of rows 


DX, DY - size of a point 
XMIN, W, YMIN, H - definition of plot 
area 


PROGRAM MANDELBROT PLOT 
VERSION B0.2 

AUTHOR Kate Crennell 
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PROGRAM SUBJECT TO COPYRIGHT 


DIM KOL$ (4) ,CS$ (7) 
ON ERROR GOTO 340 

120 C$(Ø)=CHRS135+"BLACK,  ":C$(l)-CHR 
$129+"RED, ":C$ (2) =CHRS13Ø+ "GREEN, " 
:CS (3) =CHRS1 31+ "YELLOW, ":CS (4) =CHRS1 32+ 


"BLUE,  ":C$ (5)-CHRS$133-*"MAGENTA, ":CS (6 
)=CHR$134+"CYAN,  ":C$(7)-CHRS$135* "WHIT 
E, n" 

1802vp0230255,255,255,255,255,255.255, 
2557255 

140 M$-0:MODE7 

150 E$-1:PROCmode 


1668 
170 
180 


E%=2: PROCrule 
E%=3: PROCarea 
MODE 7:E%=4:PROCkols 
190 MODE M$ 
200 IFM%=1 FOR I$-0TO3:VDU19,I$£,KOL$ (I 
%)MOD1 6; 0; : NEXT 
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one in machine code 
decreases the plotting time by a factor of 
three. 


210 VDU28,G%,31 ,H%,0:@3=4: PRINTT3+3: 0$ 
=&2Ø5Ø8: PRINTXMIN; : @3=&1 0308: PRINTW; : 03= 
&20508: PRINTYMIN; : @3=&1 0308: PRINTH: @3=11 
-M$*4:FORISZ-ÜTOC$:PRINT? (&C1Ø+1%) ; :COLOU 
R? (&COQ- I$) : VDU255:COLOUR7 : NEXT: @$=8 /M$- 
220 E%=6:VDU4 ,23; 8202; 0; 9; 0;28,G%,31,H 
$,29 
230 PROCmandel (XMIN , YMIN,DX ,DY) 
240 E$-5:VDU7,4,28,G$,31,H$,26:CLS 
250 PRINT"Save Y/N";:PROCQ:IF AS="Y"IN 
PUT"Filename",F$:GOTO260 ELSE GOTO 310 
260 IFINSTR(F$,"""")«50GOTO250 ELSE IF 
LEN (F$) >6G0T025Ø 
270 FS="P."+STRS (M3+2+2*T%) +FS 
280 IFM$-1 FOR I3=ØTO3: ? (I %3+&7FFC) =KOL 
% (I$)MOD16:NEXT 
290 S&C80-"SAVE "+FS+" 3000 8000" 
300 U$-X$:V$-Y$:X$-&80:Y$-&C:CALL&FFF7 
:X$-U$:Y$-V$ 
310 PROCbox: IFAS="Y"MODE7:GOTO17@ 
320 CLS:PRINT"MORE Y/N"; :PROCQ:IF AS=" 
Y"GOTO!80 


330 MODE7:END 
340 IFE%<>5 OR ERR<19Ø GOTO360 
350 PRINT"FILING ERROR ";ERR:GOTO250 
360 IF ERR<>17 MODE7:REPORT:PRINT;" AT 
LINE "; ERL:END 
370 ON E$ GOTO 380,150,160,170,180,240 
380 MODE 7:END 
390 : 
19000 DEFPROCkols 
1010 J$-0 
1020 CLS:PRINT''"NUMBER COLOUR LOWER B 
OUND" 
1030 Q0$-26:FORI$-0TOC$:K$-?(&COO-*IS$):IFM 


$=] K$-KOL$ (K%) 

1040 PRINTIS+1;:IFKS>ØPRINT" "+CHRS (1 
28+K%) +CHRS$255+CHRS$1 35, ?(&C10+1%) ELSE P 
RINTSPC (6) ,? (&C1Ø+1%) 

1050 NEXT:PRINT'"These are the colours 
to be plotted for each new boundary of i 
terations."' 

10960 IFJ%=C%+1 GOTOl1190 ELSE: PRINT ' "Num 
ber of boundaries OK (Y/N)";:PROCQ 
970 IFAS="Y" J$-C$*1:GOTOlllQ 
980 PRINT"How many boundaries (2-15) " 
;:J$-GET-48:PRINT;J$;:IFJ$«l OR J%>9 GOT 
01888 
990 IFJ%=1:K3=GET-48: PRINT; K%; : J%=1Ø+K 
995 IFJ%<>C%+1 PROCbnd 
1108 IFJ$«2 OR J%>15 GOTOI1G7@ ELSE C$-J 
-1:GOT01Ø2Ø 
11Ø PRINT'"Which colour/bound to chang 
e?"'" (RETURN if none)"; :K%=GET-48: PRINT; 
$;:IF K$-0 OR K$--35 ENDPROC 
120 IFK$-1 AND J%>9 I%=GET-48:IF I%>-3 
K%=16+1%: PRINT; 13%; 

1130 IFK%>J% GOTOl116 

1149 IFM$-2PRINT'"Colours are:":FORI$-0 

TO7:PRINT;CS (I$) *" ";:NEXT:GOTO12ØØ 


oo 


Un 


oo 
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1150 PRINT'"Background colour is "+C$ (K 
OL$(0)MOD8)'"Printing will be in "C$ (KO 
L% (3) MOD8) 

1160 PRINT"Primary colours available:": 
FORI$-0TO3:IFKOL$ (I$) «16 PRINT;CS (KOLS (I 
%))+" "s 

1170 NEXT:PRINT'"Other possible colours 
:":FORIS$-0TO7:F$-0:FOR N$-0TO3:IFKOL$ (N$ 
)=I% F$-1 

1180 NEXT:IFF$-Ü PRINT;CS (I$);SPCI; 

1198 NEXT 

1200 I$-10:INPUT'"which colour",AS:IFAS 
z-""GOTO1330 ELSE AS=LEFTS (A$,3) 

1210 FORN%=0TO7: IFAS=MIDS (C$ (N%) ,2,3) I 
$-N$ 

1220 NEXT 

1238 IFI$-10GOTO!200 

1240 IFM$-2 ?(&BFF*K$)-I$:GOTO!320 
1250 F$-0:FORN$-0TO3:IF I$-KOL$(N$) ?(& 
BFF+K%)=N%:F%=-1 
1260 IFF$-0 AND KOLS (N%)=16 F%=N%+1 
270 NEXT:IF F%>Ø KOLS (F%-1) =1%: ? (&BFF+ 
K%)=F%-1:GOTO 1320 
280 IFF$-0 KOL$(?(&BFF*K$))-I$:GOTO 13 
20 
1290 FOR I$20TO3:F$-20:FORN$-0TOC$Z:IF?(& 
CØØ+NS)=I% F$-1 
1300 NEXT:IF F%=Ø KOL$(I$)-16 
1310 NEXT 
1320 IFK$-1 GOTO1Ø2Ø 
330 INPUT"What new lower iteration bou 
nd for this colour",L$:IFL$«0 GOTO!330 
1340 IFL$-0GOTO! 020 
1350 IFL%<?(&CØE+K%)+1 GOTO!390 
1360 IFL%>255 GOTO!390 
1370 IFK%<J% AND L$»?(&ClO*K$)-1 GOTO13 
98 
380 ?(&CØF+K%)=L%:GOT01Ø2Ø 
1390 PRINT"New range incompatible with 
old" :GOTO133Ø 
1400 : 

1410 DEFPROCarea 

420 CLS:0$-&2070A:PRINT''"Left X bound 
="XMIN;", width-"W'"Low Y bound-"YMIN;", 
height="H': PROCask: IFAS="Y" GOTO147@ 
1430 INPUT'"New left X",XMIN 

1440 INPUT"New width",W:IFW-0GOTO!440 

1450 INPUT"New bottom Y",YMIN 

1460 INPUT"New height",H: IFH-0GOTO!460 

1470 L%=256/M%:R=ABS (H/W):IFR?l Y%=L%-1 
:X$-Y$/R-0.5 ELSE X$-L$-1:Y$-X$*R40.5 

1480 Q$-4:PRINT'"The plot will have ";X 
%+1;" columns"'"and ";Y%$+1;" rows." '':PR 
OCask: IFAS="Y" GOTO1518 

1490 PRINT'"New number of columns ( <"; 
L$41" )";:INPUT,I%:IFI%<1 OR I%>L% PRINT 
" Illegal value":GOTO1490 ELSE X%=1%-1 
1500 PRINT"New number of rows ( <";L%+1 
" )';:INPUT,I$:IFI$«l OR I3>L% PRINT" Il 
legal value":GOTO149@ ELSE Y$-I$-l 
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1510 DX=W/X%:DY=H/Y%: ENDPROC 
1529. ss 


1530 DEFPROCask 

1540 *FX202,40 

1550 PRINT;" Is this OK (Y/N)";:PROCQ:E 
NDPROC 

1560 DEF PROCQ:PRINT; "?"; 

1570 AS=CHRS(GET AND 223):IFAS<>"Y" AND 
AS<>"N" GOTO 1576 

1580 PRINT;AS:ENDPROC 

1599 ; 

1600 DEFPROCmode 

1610 T$--1:02$-10 

1620 CLS:PRINTTAB (7,1) CHR$134"The Mande 
lbrot Set"''' 

1630 PRINT"There are 2 available plot m 
odes: "''"1) "+CHRS131+"High"+CHRS135+"res 
olution (256 lines) and"'"four colours," 
''"2) Low resolution (128 lines) and"'CH 
RS131+"eight"+CHRS135+"colours."' 

1648 IFM$-0 PRINT'"Which mode would you 

like (1 or 2)? ";:M$-GET-48 ELSE GOTO 1 
660 

1650 IFM%<1 OR M%>2 M$-0:GOTO 1640 ELSE 

PRINT;M$:GOTO 1670 

1660 PRINT"Plot mode will be"+CHRS134;M 
$;CHRS$135;:PROCask:IF AS="N" M$-3-M$:GOT 
01660 

1670 ON M$ GOTO 1680,1690 

1680 G%=32:H%=39:C%=3:FOR I$-0TO15:?(I$ 
+&C1Ø)=4*1%: ? (1 3+&CØØ)= (T%+1 ) MOD4: NEXT: K 
OL (0) =Ø: KOLS (1) =4: KOLS (2) =6: KOL$ (3) =7:E 
NDPROC 

1698 G%=16:H%=19:C%=7:FOR 13=0TO15:?(1% 
+&C1Ø)=2*1%: NEXT: !&C00-&02050104: !&CO4-& 
00070306: !&C08-802050104: I COC-&08070306 
: ENDPROC 

1700 : 

1718 DEFPROCrule 

1720 CLS:@%=1Ø: PRINT ' ' "The Mandelbrot f 
ormula used will be:"''" Z ";T343;" + 
C => Z'"'':PROCask:IFAS-"Y" GOTO] 750 —» 12 
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WORDPRO AND 
WORDPOWER 


Although the word processor market 
is dominated on the Beeb by 
Wordwise and View, others are 
available. Can the minnows compete 
with the giants? Geoff Bains has 
been trying out two of the better 
alternatives. 


Product : Wordpower 

Supplier : Ian Copestake 

Address : 23 Connaught Crescent, 
Brookwood, Woking GU24 0AN. 

: "tM 

: £39 


Phone 
Price 


Product : ProWord 

Supplier : T. Hall 

Address : 31 Wetherfield Rd, Noctorum, 
Wirral, Merseyside L43 9YF. 


Phone : 051-652-7560 
Price : £27.50 
WORDPOWER 

Wordpower is supplied on both ROM and 
disc, and both must be present (at least 
initially) for the program to work. 


Wordpower is 
Master, Tube 


compatible 
and Electron. 


with the Bt, 


Wordpower is another 'what you see is 
what you get' (WYSIWYG) word processor 
that owes a lot to both View and Wordwise. 
Like View, most commands are function key 
based and the text formatting is 
controlled by way of rulers inserted in 
the text. Lines can be up to 250 
characters long with up to 28 Tab stops. 


Text is entered in any mode, so if the 
line length chosen is greater than the 
chosen mode can display, the line is split 
over several screen lines in the same way 
as that used in the preview mode of 
Wordwise. For a very strange effect a 
function key enables you to 'switch off' 
any of the 'sliced' lines on the screen in 
an attempt to make the display look more 
like the printed result and more readable. 
This isn't very effective. There is no 
sideways scrolling over long lines, even 
to the limited extent offered by View. 
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Like Wordwise, the rest of the control 
over text is placed in the hands of 
embedded codes. These can appear anywhere 
in the document and affect such features 
as line spacing, heading and footing 
spaces and text, page numbering, and so 
on. 


The most unusual aspect of Wordpower 
is the way in which it treats long 
documents, too long for memory. Large 
files of text on disc are edited a section 


at a time. However, it doesn't 
automatically save and load chunks of 
text, as you need them, like a 'real' word 


processor, but requires you to do the work 
by 'yanking' the next piece of text into 
the machine as and when you need it. This 
takes some time to get used to, and 
although a useful facility, to be honest, 
I orefer to deal with several short files 
as I choose. 


A lot of the workings of Wordpower are 
tedious. To save just a section of your 
document you have to move around the text 
specifying the start and end of the 
section to be saved and hit the Y key 
twice in response to prompts. Admittedly 
Wordpower does its best to help, and you 
can use the Ctrl-Q (Quick Save) option, 


This is Wordpower from Ian Copestake, 


This word processor will even allow you AR have two parts of 
the same document on the screen at the same time. 


Not bad, eh? 


The two parts of the document are displayed in two separate 
indous. 


This is Wordpower from Ian Copestake, 


This word processor will even allow you H Hp two parts of 
the same document on the screen at the sane 


before the save command 
all your text, but that is no real answer. 
The most commonly used save has to be to 
save the entire document. So why not have 
a single command devoted to doing just 
this? 


itself, to save 


In one 
outstanding. 
documents 


aspect Wordpower is 
It can actually work on two 
at once. One document can be 
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printed while you are editing another. 
Even more impressively, the screen can be 
split into two separate windows, one above 


the other, each with its own cursor 
position and other options, and each 
displaying a different part of the same 


document or even, with a little judicious 
fiddling, two separate files (though they 
are not strictly speaking separate when in 
the machine). 


A lot of thought and work has gone 
into Wordpower to make it as powerful as 


possible. However, the end result is 
unfortunately a little unwieldy. Maybe 
this is inevitable given the features 


included, but I doubt it. 


PROWORD 

ProWord is supplied on a single ROM. 
There is a HiWord version for users of the 
6502 second processor and this is 
available on a separate ROM. ProWord 
consists of three separate parts. Firstly, 
there is the editor. This is the actual 
text manipulation section of the program. 


ProWord is an excellent example of a 
WYSIWYG word processor. Text is entered on 
an 80 column screen. all the formatting is 
provided by function key commands (on 
their own and along with Shift, Ctrl, and 
Ctrl-Shift). There are no rulers to 
contend with, but invisible commands are 
inserted into the text wherever the 
formatting function keys are pressed. 


When a formatting function key is 
pressed the bottom of the screen turns 
into a ruler of sorts and the margins, tab 
positions or whatever are set with the 
cursor keys. The drawback with the system 
is that when text is actually typed in, it 
isn't formatted. Another function key must 
be pressed to format each paragraph. 


Despite this drawback ProWord is still 
extremely powerful. The text on the screen 
is rather spindly. This is because it is 
not bold type. Pressing another function 
key allows you to select a font. These are 
fine, bold, superscript, subscript, 
underline and inverse. These different 
fonts are displayed on the screen, just as 
they appear on paper. 


The whole of ProWord is steeped in 


features. Even the humble search and 
replace has many options added that you 
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would not expect to find on a word 
processor for the Beeb. The replace 
routine can distinguish between whole 
words or just sections; it can operate 
backwards or forwards through a document; 
it will ask on each find if replacement is 
wanted; it will reformat a paragraph after 
replacement; it will even replace just the 
first specified number of finds. 


All these options are selected from a 


menu system as are all the facilities of 


this word processor not directly concerned 


with editing. Such versatility is of 
course impressive. However, it does mean 
that using this word processor can become 
a little cumbersome. 


The other facilities offered by 
ProWord include saving and loading text 
from disc or cassette and spooling to disc 
or cassette a formatted ASCII file. Sadly 
there is no facility to save sections of a 
document. 


The second section of ProWord is the 
printer driver. This is similar to the 
View printer driver and is used to specify 
all the codes used by your particular 
printer to perform such tasks as 
underlining, emphasized type, and so on. 


Unlike View (versions before 3.00), 
the printer driver is included in the ROM. 
Defining the codes is a simple question 
and answer process. ProWord asks if each 
of the features are available on your 
printer and if they are, then what the 
codes are to initiate them. 


At the same time as the printer codes 
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are being defined you can also define 
which disc drives are to be used for what. 
The codes you define can be saved to disc 
or cassette and loaded in at a later date 
so you don't have to go through the whole 
process again. 


The third section of this word 
processor is the 'database'. This option 
is only available to disc users of 
Proword. It is a simple cardbox type 
database which can handle several hundred 
records of up to seven fields of up to 79 
characters. The records may be 
interrogated in a simple fashion and 
printed out. 


However, the real use for the database 
is as a mail merging facility. By 
incorporating 81 to 87 in your document, 
the relevant fields from the database 
records are incorporated into the text. 
There is even a facility to reformat the 


(ER SREY ROP TCS OIE ESO SEEDS LORS SUAE ESLER IE ESOS UE ELSE S M MCP REE ERT TLS ERE EE BD INES. ORCI SHE OEE TREE ST TESA ESERIES ch 


text automatically (!1 to !7 are used) 
after the insertion of the data field. 
This quite advanced facility enables you, 
say, to write personal sounding letters to 
a large number of people with the minimum 
of effort. 


CONCLUS IONS 

Proword is certainly feature-filled. 
Like Wordpower, a lot of effort has gone 
into packing an awful lot of word 
processor into the humble Beeb. However, 
both packages do suffer a little from over 
complication in use. It takes a long while 
to become anything like familiar with 
these word processors. Although both 
packages are way ahead of the likes of 
Wordwise in terms of facilities, I still 
return to that old workhorse with a sense 
of relief. After all, a word processor is 
meant to make the act of writing easier. 
If using a word processor makes life more 
difficult then little has been gained. ==] 


g 

1730 PRINT'"Enter new exponent (2-4) "; 
:I$-GET-48:PRINT;I$:IF I%<2 OR I$»4PRINT 
"Illegal value":GOTO! 730 

1748 T3=1%-3:GOTO1720 

1750 ON T%+2 GOTO 1760,1770,1780 

1760 XMIN=-2: YMIN=-1.25:W=2.5:H=W: ENDPR 
OC 

1770 XMIN=-1.5:YMIN=-1.5:W=3:H=3:ENDPRO 
£ 

1780 XMIN=-1.5:YMIN=-1.25:W=2.5:H=W: END 
PROC 

1790 :, 

1800 DEFPROCbox 

1810 CLS:PRINT"BOX Y/N"; : PROCQ: IFAS="N" 
ENDPROC 

1820 CLS:S$-24*M$:U$-0:V$-0:A$-640:B$-51 
2:GCOL3 , 3:MOVEU% , V2: DRAWA% ,B$ 

1830 *FX4,1 

1840 *FX12,4 

1850 A$=GETS:REPEAT: PROCbx:UNTIL AS="Q" 

1860 *FX4,0 

1870 *FX12,0 

1880 CLS:PROCask:MOVEUS ,V$: DRAWUZ , B$: DR 
AWAS ,B%:DRAWA% ,V%:DRAWU% ,V%: IFAS="N"GOTO 
1820 

1890 CLS:PRINT"Draw new one"; : PROCQ: IFA 
S="N"ENDPROC 

1900 XMIN=XMIN+DX*U3/S3: YMIN-YMIN4DY*V$ 
/S%:W= (A$-U$) *DX/S$:H- (B%-V%) *DY/S$:ENDP 
ROC 

1918 ENDPROC 

1920 : 
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Mandelbrot Graphics 


1938 DEFPROCbx 

1949 IF INSTR("LR",A$)=Ø S=GETS:ENDPROC 
1958 MOVEUS,V%:DRAWA%,B3:IFAS="L"U%=A%: 
V$-B$ELSE IFAS-"R"MOVEUS,V$:DRAWUS,B$:DR 
AWA ,B3: DRAWAS , V3: DRAWUS ,V%:AS="0": ENDPR 
oc 

1960 IFAS-CHR$136 A$-A$-S$ ELSEIFAS=CHR 
$137 A$-A$*S$ ELSEIFAS=CHR$139 B%=B3+S% 
ELSEIFAS-CHRS!38B$-B2-S$ 

1970 MOVEU%,V%:DRAWA% ,B%:AS=GETS: ENDPRO 
C 

1980 : 

1990 DEFPROCmandel (XMIN, YMIN ,DX,DY) : P$- 
C$2&C1Ø:L3=M3*4 

2000 Y=YMIN-DY:FORV%=ØTOY%:PRINTV3:Y=Y+ 
DY : X=XMIN-DX : FORU%=ØTOX%:X=X+DX:U=X:V=Y: 
N3=Ø 

2Ø1Ø ONTS+2GOTO202G , 2030 ,2040 

2020 A-U*U:B-V*V:IFA*B»4GOTO20 5Ü0ELSEN$- 
N$*1:1FN$-P$GOTO2050ELSEV-Y-*2*U*V:U-X4A- 
B:GOTO2020 

2030 A=U*U:B=V*V: IFA+B>2GOTO2050ELSEN3= 
N$*1:1FN$-P$GOTO20 50ELSEV=Y+V* (3*A-B) :U= 
X*U* (A-3*B) :GOTO2030 

2040 A=U*U:B=V*V: IFA+B>2GOT02Ø5ØELSENS= 
N+] : IFNS=P %GOT02Ø5ØELSEV=Y+4*U*V* (A-B) : 
U-X*A*A4B*B-6 *A*B:GOTO2040 

2050 J$-C$?&CUP:FORI$-C$TOlSTEP-]:IFN$« 
I$?&ClO J$-I$?&BFF 

2060 NEXT:GCOL0,J$:PLOT69,U$*L$,V$*L2:1 
FM$-2PLOT69 ,U$*L$,V$*L$44 

2070 NEXT, : ENDPROC FE 
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THE BARRY BOX 


The Barry Box is one of those devices 
that just has to be heard to be 
believed. The device provides all that 
is needed to store and reproduce the 
most realistic speech and sound. Geoff 
Bains has been exercising his vocal 
chords. 

Product : Barry Box 


Supplier : BML Electronics, 
Unit 24, Larch Grove, 


Bletchley, MK2 2LL. 
0908-640805 
Price  :£79.95 
Paul Hardcastle's song of last year 


not only brought the number 19 to the 
public's eye but also the idea of digital 
sound sampling. That record was made with 
equipment that converts a noise into 
digital values that may be manipulated by 
a computer. Now the Barry Box gives BBC 
micro owners the same facilities. 


The Barry Box itself is a small black 
plastic case with cables to connect it to 
the Beeb's lMHz bus and auxiliary power 
supply. A microphone (supplied) plugs into 


the box and an extension speaker or 
amplifier can be connected too, if the 
Beeb's own sound system is not to your 


taste. Of course, the software to run it 
all is supplied on ROM, 


The hardware consists mainly of fast 
ADC and DAC chips. The ADC (Analogue to 


Digital Converter) samples the input from 
the microphone several thousand  :imes a 
second, and converts this into digital 


form. The Beeb can store and manipulate 
these values, and the DAC (Digital to 
Analogue Converter) can turn them back 
into sound. 

The Barry Box can be used in two 


modes. In Direct mode a *BAR. command puts 
the Beeb under the command of the software 
and gives you several options, all 
selectable with the function keys. 


Sample a sound (key triggered) 

Sample a sound (sound triggered) 

Playback sound 

Playback sound backwards 

Load or Save sampled sound to tape, 
disc or sideways RAM 
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Sound Graphs 


Display waveform 

Display frequency analysis 
Display amplitude envelope 
Frequency smoothing 
Amplitude smoothing 


The frequency analysis is particularly 


impressive. Complicated mathematical 
calculations are used to reduce your 
sampled sound into a graph of frequency 


against amplitude. The sampling rate can 
be altered allowing your own choice of 
compromise between quality of sound (from 


good to appalling) and length of sound 
sample (up to about ten seconds). 


Such facilities make the Barry Box an 
obvious choice for demonstrating the 
nature of sound in schools. However, the 


Barry Box isn't just good for serious 
stuff; it's great fun too. If you thought 
that the sound of your own voice was 


entertaining then try it backwards. 


In Program mode all these facilities 
of the Barry Box are available to a Basic 
program with a series of * commands. These 
commands are given names to tie in with 
the Direct mode (e.g. playback is 
initiated by pressing f2 in Direct mode 
and with *BAR2 in Program mode), making 
them easy to remember. Sampled sounds can 
be easily strung together or chopped 
around from Basic. The short but 
comprehensive manual gives a few example 
programs. A simple 1Ø line Basic program 
produces a reasonable facsimile of the 
'N-N-N-Nineteen' effect. Whether for study 
or fun, the Barry Box, though expensive, 
is an impressive piece of equipment. = 
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MS+II nas 


Alex Kang brings this series to a cli- 
max with a complete application of 
the USI routines previously described. 
The Telephone Book shows the tre- 
mendous power and user-friendliness 
of this approach to writing applic- 
ations and utilities. 


The previous two articles in this 
series described the USI utilities for 
user-friendly screen displays, and 
provided a simple demonstration of 
their use. Here, in the last article of 
the series, is a 'phone book' program 
which demonstrates another possible 
application of the utilities. The 
program displays a telephone book on 
the screen in which you may enter and 
retrieve names and telephone numbers 
just as you would in an ordinary 
telephone book. 


TYPING IN THE PROGRAM 

As this program makes use of random 
access filing, it is for disc users 
only. However, the principles behind 
the application of the USI utilities 
apply also to cassette users. 


Type in listing 1 and save it to a 
fresh disc containing just a copy of 
the assembled USI routines (M.USI) from 
part 1. This program sets up the screen 
display and special character set. Save 
this program as  "B.PHONEI", and then 
type in listing 2 (Basic I users should 
change all occurrences of OPENUP to 
OPENIN if typing in the magazine 
listing). Save listing 2 as "B.PHONE2". 
To use the program, just CHAIN 
"B.PHONE]". This assumes that your USI 
utilities code is saved as "M.USI". On 
the Master 128 PAGE should first be set 
to &19ØØ (type PAGE-&1900 <Return>) to 
provide the space for the USI routines. 


USING THE PROGRAM 

There are four general options: 
"system manager" (represented by the 
'mouse' symbol top left), "file", 
"edit" and "quit", all of which display 
a pop-up window when ‘selected. The 
program operates on files (phone books) 
under directory "T", so make sure there 
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are no other files with directory "T" 
on the same disc, apart from those you 
create using this program. 


Of course, the first time you use 
the program, you will not have any data 
files (phone books) so you must create 
one. You do this by selecting the 
"Create file" option under the general 
option "file". Type in the filename of 
the phone book you wish to create. 
Pressing Return without entering a 
filename just closes the pop-up window. 


The “Load file" and "Delete file" 
options will display up to 10 files, or 
phone books, so make sure you do not 
exceed this number. When using these 
options, just select the file you wish 
to load or delete. However, pressing 
the space bar without pointing to any 
file will just close the window. 


Once a file has been created or 
loaded, it will, by default, display 
page "A", Selecting any of the letters 
down the right hand side of the screen 
will result in the contents of that 
page being displayed. Use the "edit" 
option to write entries, delete the 
page, or sort the entries on the page. 
When writing, you simply select the 
line you wish to write to using the 
arrow pointer. You may select eithe: 
the name or number fields. Selecti g 
the former enables you to write to both 
name and number fields, while selecting 
the latter will only write to the 
number field. If you wish to leave the 
entry unchanged, just press Return. To 
delete the entry, press Space followed 
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by Return. These operations are only 
carried out on the current entry field 
selected, which is shown highlighted. 
Once you have finished editing the 
page, select the "Quit write" box at 
the bottom of the screen. 


Select the "Sort entries" option to 
sort out the entries on the page. You 
may choose to save the sorted entries 
onto the file or not. Similarly, the 
"Delete page" option will delete all 
entries on the page upon confirmation. 
This is useful for 'blanking' the pages 
of a newly-created file if necessary. 
The "Quit" option will exit from the 
program upon confirmation. 


The little picture of the mouse on 
the top left hand corner of the screen 
acts as-the system manager - you may 
use this to change the pointer speed 
and screen colours. 


CUSTOMISING THE PROGRAM 

Each page of a phone book holds 24 
entries. However, some letters are not 
too commonly used e.g. "X","0" or "z". 
You may combine letters in this case, 
e.g."XYZ" or "CD" etc. by altering the 
data statement (line 19060) in listing 
l. Another idea is to reserve a page 
for your most frequently used numbers, 
by denoting it, say, with an asterisk 
"*" instead of with a letter. Whatever 
you choose, you must make sure that 
there are still 26 page labels, though 
some could just be blank of course. 


The phone book provides both a most 
useful application program and an 
excellent example of the power and 
user-friendliness that can be achieved 
with the USI utilities. Careful study 
of this program will help you in 
writing your own USI applications. 


18 REM Telephone Book Screen Setup 
20 REM Listing l, Version Bl.Ø 
30 REM Author Alex Kang 
40 REM Beebug May 1986 
50 REM Program subject to copyright 
100 HIMEM-&4D00:*LO."M.USI" 
118 PROCin:PROCatoz:PROCch: PROCsm ("fil 
e edit  quit",128,1023) 
120 CHAIN"B, PHONE2" 
1800 DEFPROCin:VDU22,4,19,0,7;0;19,1,4; 
0;23;8202;0;0;0;23,252,240,192,128,128,0 
,0,0,0,23,253,15,3,1,1,0,0,0,0,23,254,36 
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,114,226,25,61,3Ø,6Ø,9,23,255,17,68,17,6 
8,17,68,17,68,31,0,0,252,254,31,39,0,253 

1619 ?&DÜ-2:FORj$-1TO31:PRINTTAB (0 , j2) S 
TRINGS (40 ,CHR$255) ; : NEXT: ?8DØ=Ø:VDU25,4, 
0;991;25,5,1279;991;24,80;16;528;80;16,2 
6,23,255,255,255,255,25522552255;255.255 

1020 VDU24,16;111;1263;967;16,26,25,4,1 
67967; 25,5,12637967;25,5,1263;111;25,5,1 
6;111;25,5,16;967;25,4,16;919;25,5,1136; 
919725,4,113679617225,5,1136; 111132574, 752 
2960752555752» 101; 

1030 V%=Ø:P%=Ø:E%=Ø:H%=Ø:5%=Ø: ENDPROC 

1050 DEFPROCatoz:FORc%=1T026: READCS: PRO 
Cital (c$,37,c%+1) : NEXT: PROCi tal ("Name", 1 
0,2) :PROCital("Tel.",28,2) : ENDPROC 1 

1860 DATA A,B,C,D,E,F,G,H,I,J,K,L,M,N,O 
;P,Q,R,S, T,U,V,W,X,Y,Z 

19080 DEFPROCital(A$,x$,y$):VDU31l ,x$,y2: 
italic-&178F:FORi$-lTOLENAS:?&80-ASC (MID 
$(A$,i%,1)):CALL italic:VDU23,254:FORj$- 
1TO8:VDUj$?&80: NEXT: VDU254 : NEXT: ENDPROC 

1108 DEFPROCsm(AS,gx$,gy$) : VDU5: FORi$-1 
TOLENA$:a$-(ASC(MIDS (A$,i%,1)) AND 223): 
a$-a$-159*(a$»64 AND a$491):MOVEgx$,gy$: 
VDUa$:gx$-gx$*20-4*(a$-277 OR a$-87):NEXT 
: VDU4 : ENDPROC 

1128 DEFPROCCch:FORi$-0TO25:VDU23,224*i$ 
,Ü:FORj$-1TO6: READk$: VDUk$ : NEXT: VDUO : NEX 
T:FORi$-250TO253:VDU23,i$:FORj$-1TOB8:REA 
Dk%:VDUk3: NEXT, : ENDPROC 

1130 DATA96,144,144,240,144,144,96,144, 
224,144,144,224,112,128,128,128,128,112, 
224,144,144,144,144,224,96,144,144,224, 1 
28,112,240,128,224,128,128,128,96,144,12 
8,176,144,96,144,144,240,144,144,144,224 
,64,64,64,64,224,16,16,16,16,144, 96 

1140 DATA144,160,192,160,144,144,128,12 
8,128,128,128,240,112,168,168,168,168,16 
8,96,144,144,144,144,144,96,144,144,144, 
144,96,96,144,144,224,128,128,96,144,144 
,208,160,80,96,144,144,224,144,144,112,1 
28,240,16,16,224,224,64,64,64,64,64 

1150 DATA144,144,144,144,144,96,144,144 
,144,144,160,64,136,168,168,168,168,112, 
144,144,96,96,144,144,144,144,144,112,16 
,224,240,16,32,64,128,240 

1160 DATA255,128,128,135,159,184,186,13 
1,240,8,4,226,249,29,93,193,142,157,189, 
19Ø,159,128,128,255,113,185,189,125,249, 
1470112255 
1Ø REM TELEPHONE BOOK 
20 REM Listing 2, Version Bl.0 
3Ø REM Author Alex Kang 
40 REM BEEBUG May 1986 
50 REM Program subject to copyright 
60 : 
100 DIM str 50,FS$(10),NS (24) , T$ (24) 
118 PROCinit:PROCld 
120 REPEAT: IF H%=Ø PROCs (Ø) 
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130 REPEAT:RESTORE210:CALL pointer: PRO 
Csel (2,5) :UNTILS%>Ø:M%=5% 

140 IF M$-5 AND H$»0 PROCaz 

150 IF M$455:RESTORE220:FORi$£-lTOM$:RE 
ADx$,y$,z$:NEXT:PROCfb(x$,y$,z$):IF M$«4 
:IF FNsub>@ PROCchk 

160 IF M$-4 PROCquit 

170 IF M&<>5 AND E$-0:PROCfb(x$,y$,z£) 

180 S$-0:UNTIL E$-1:*DIR $ 

198 MODE7:IF H%>Ø CLOSE#HS 

200 END 

210 DATA 1,1,0,0,1,4,6,0,0,2,8,10,0,0, 
3,13,14,0,0,4,36,38,2,27,5 

220 DATA 1,0,1,3,0,4,8,0,3,12,0,4 

230 : 

1000 DEFPROCinit:T$-80:CF$-"" 

1018 open=&131D:close=&134F:pointer=&15 
54:input-&l66C:str-&16C7:curoff-&l6F9:cu 
ron-&l71l:qubox-&1728:0scli-&1787:*DIR T 

1020 ?&70=20: 2&71=16: fcon$-CHR$2504CHRS$ 
25] «CHR$84CHRS84CHR$10-4CHR$2524CHR$253: P 
$-0:V$-0:f$-0:SS-STRINGS (22," "):PROCqb( 
3,30,STRINGS (13," ")) : ENDPROC 

1030 : 

1040 DEFPROCS (r%) : VDU26: ?&D3=255: s$=FNp 
ad(9,CF$)*"open":IF r$-0 s$="No files op 
en" 

1050 PRINTTAB (3,30) s$: ?&D3=0: ENDPROC 

1060 : 

1070 DEFPROCchk 


1080 IF M3=1 AND S$-1 PROCps 
1090 IF M$-1 AND S%=2 PROCcol (Ø) 
1100 IF M$-1 AND S%=3 PROCcol (1) 
1110 IF M$-2 AND S$-1 PROCld 
1120 IF M$-2 AND S$-2 PROCdf 
1130 IF M$-2 AND S%=3 PROCCf 
1140 IF H$-0 ENDPROC 

1150 IF M$-3 AND S$-1 PROCwrite 
1160 IF M$-3 AND S$-2 PROCsort 
1170 IF M$-3 AND S$-3 PROCdp 
1180 ENDPROC 

1190 : 


1200 DEFPROCquit:IF FNconf(12,"QUIT PRO 
GRAM"," quit ")=1 E$-1 

1218 PROCCI:ENDPROC 

1220 : 

1230 DEFPROC1d 

1240 PROCfl:IF nf%>Ø f$-FNic 

1250 IF (nf$-0 OR f$-0) PROCCl:ENDPROC 

1260 CFS-FS$(f$):fnSz"T,"4FS$ (£3) 

1270 IF H3>@ CLOSE#H3:PROC£b (36,V%,3) 

1280 H$-OPENUP fn$:PROCCl:PROCfb(36,2,3 
) :P3=1: PROCsp:V%=2:S%=@: PROCS (1) : ENDPROC 
1299 : 

1300 DEFPROCf1:PROCqf:B$-6-4* (nf$55) : PR 
OCop (3,B%,33,1,2):IF nf$-0 VDU7:PRINT"NO 
PHONE BOOKS ON DISC."'"Press <RETURN>.. 
. ": REPEATUNTILINKEY-74:ENDPROC 

1310 IF nf%>5 PROCpfi (1,5,0,895) : PROCpf 
i(6,nf$,4,767) ELSE PROCpfi (1,nf$,0,895) 
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1320 ENDPROC 

1330 : 

1340 DEFPROCgf:?&80-0:1881-&A00:18&85-31 
: 1889=Ø:X%=&8Ø:Y%=Ø:A%=8:CALL &FFD1 

1350 nf$-31-?&85:IF nf%>1Ø nf$-10 

1360 IF nf%=Ø ENDPROC 

1370 FORj$-lTOnf$:F$(j$)-"":FORi$-1TO7: 
A-i$?(&A00* (j$-1) *8) :F$ (3$) =FS (j$) +CHRS ( 
A) : NEXT , : ENDPROC 

1380 : 


1390 DEFPROCop(a$,b$,c$,d$,w$) 
1400 A$-a$:B$-b$:C$-c$:D$-d$:W$-w$ 
1410 CALL open,A$,B$,C$,D$,W$:ENDPROC 


1420 : 

1430 DEFPROCCl 

1440 CALL close,A$,B$,C$,D$:ENDPROC 

1450 : 

1460 DEFPROCqb(x$,y$,q$) 

1478 Sstr=q$:CALL qubox,x$,y$:ENDPROC 

1480 : 

1498 DEFPROCsmal1 (AS,gx%,gy%) : VDU5: FORi 
%=1TOLENAS:a%=ASC (MIDS (AS,i%,1)):IF (a> 
64 AND a%<91) a%=a% AND 223:a%=a%+159 

1588 MOVEgx$,gy$:PRINTCHRSa$:gx$-gx$420 
—4* (a3=236 OR a%=246) :NEXT: VDU4: ENDPROC 

1518" s 

1520 DEFPROCpfi (a$,b$,c$,d$) 

1530 FORj$-a$TOb$:u$--6*(j$-1)*(3$46)-6 
*(j$-6)*(3j$55) : PRINTTAB (u%,c%) fcon$: PROC 
small (F$ (3%) ,32* (u$*4) , d$) : NEXT: ENDPROC 

1540 : 

1550 DEFPROCfb(X%,Y%,Z%):X%=X%*32:Y%3=1Ø 
23-32*Y%:VDU5:GCOL3, | :MOVEX%,Y%: PRINTSTR 
INGS (Z$,CHR$255) : GCOLØ , 1 : VDU4 : ENDPROC 

156Ø : 

1570 DEFFNsub:S$-0:RESTORE (5ØØØ+M%*1Ø) 
:READ A$,B$,C$,D$:PROCop(A$,B$,C$,D$,1): 
READ j%:FORi$=1TOj%:READiS:PRINTiS:NEXT: 
READj$:RESTORE (6ØØØ+1Ø*M%) :T%=T%+5Ø:CAL 
L pointer:T%=T%-5Ø:PROCsel (1,3) :IF S%>0 

PROCfb(1%,t%,r%-A%+1) : PROCd (2Ø) 

1588 PROCc1:=S% 

1590 : 

1600 DEFPROCd (d$) : tm3=TIME: REPEATUNTILT 
IME>tm%+d%: ENDPROC 

1610 : 

1620 DEFPROCsel(K$,N$):s$-0:i$-0:IF K$- 
1 READ 1%,t% 

1630 REPEAT:i$-i$41:IF K%=1 READ r$:s$- 
s$tl:t$-t$4l:b$-t$ 

1640 IF K$-2 READ 1%,r%,t%,b%,s% 

16590 IF (?&70»-1$ AND ?8&7Ø<=r%) AND (?& 
71>=t% AND ?&71<=b%) THEN S$-s$ 

1660 UNTILS%>@ OR i$-N$:ENDPROC 

1670 : 

1680 DEFPROCps:PROCop(0,8,25,1,2) : PRINT 
"POINTER SPEED"'"30 (fast) - 150 (slow)" 
'""Current = ";T$:CALL curon:INPUT"New : 

" tm$:CALL curoff:IF tm$529 AND tm’<151 

T3=tm% 
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1690PROCC1: ENDPROC 

1700 : 

1718 DEFPROCcol (dc3) :M%=6: IF FNsub>@:IF 

S$-14»?(&370-dc$) VDU19,dc$,S$-1;0; 

1720 S$-0:ENDPROC 

1730 : 

1740 DEFPROCsp: PROCptr :FOR13=1T024:NS (1 
$) =FNget (22) :TS (1$) =FNget (11) : NEXT: PROCd 
is:ENDPROC 

1758 : 

1760 DEFPROCdis:FOR1$-1TO24:PRINTTAB (1, 
3+1%)NS (1$) : PRINTTAB (24,3412) TS (1$) : NEXT 
: ENDPROC 

1770 : 

1780 DEFPROCptr : PTR#H%= (P$ 
PROC 

1790 : 

1800 DEFFNget (n$) :a$7" ":FORi$-lTOn$:a$- 
BGET4H$:1IF a$432 OR a$5125 a$-32 

1818 aS=aS$+CHRSa%: NEXT: =aS 

1820 : 

1830 DEFPROCwf : PROCptr :FOR1%=1T024: aS=N 
$ (1$) : PROCput (22) : a$=T$ (1$) : PROCput (11) : 
NEXT: ENDPROC 
1840 : 

1850 DEFPROCput (n$) : FORi3=1TOn%:a%=ASC ( 
MIDS (a$,i$,1)) :BPUT4H$ ,a$: NEXT: ENDPROC 
1860 : 

1870 DEFFNconf (qx$,d$,c$):5$-0 
1880 PROCop(qx%,6,qx%+22,1,2) : PRINTAS:P 
RINT "Please confirm:":PROCqb (qx$*2,5,c$) 
: PROCqb (qx3+1Ø,5, "Cancel") : REPEAT 
189Ø CALL pointer:IF (?&7Ø>=qx%+2 AND ? 
&7Ø<=qx%+7) AND ?&71=5 S$-l:qx$-qx$42 
1900 IF (?8&7Ø>=qx%+1Ø AND ?&7Ø<=qx%+15) 
AND ?&71=5 THEN S$-2:qx$-qx$*10 
1910 UNTILS%>Ø:PROCfb (qx%,5,6) : PROCA (30 
):=5% 

1920 : 

1930 DEFPROCdp:d%=Ø:IF FNconf (8, "DELETE 
PAGE", "delete")=| :FOR1%=1T024:N$ (1%) -S$ 
: TS (1$) =STRINGS (11," ") : NEXT: PROCwf :d3=1 
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3-1) *792+1 : END 


1940 S$-0:PROCCl:IF d$-1 PROCdis 

1950 ENDPROC 

1969 : 

1970 DEFFNic:S$-0:CALL pointer:RESTOREI 
990: PROCsel (2,nf%):IF S%>0 PROCfb(1$,t$, 
2) :PROCfb(1%,t%+1,2) : PROCd (30) 

1980 =S% 


1990 DATA4,5,2,4,1,10,11,2,4,2,16,17,2, 
4,3,22,23,2,4,4,28,29,2,4,5,4,5,6,8,6,10 
,11,6,8,7,16,17,6,8,8,22,23,6,8,9,28,29, 
6,8,10 

2000 : 


2010 DEFPROCCf:PROCOop (A$,B$,23,D$,2) : PR 
INT"CREATE FILE"'"Filename:":N%=7:fn$=FN 
inp: IF fn$="" PROCC1:5%=Ø:ENDPROC 

2020 CLOSEHØ:IF H%>Ø PROCfb(36,V$,3) 

2030 H$-OPENUP fn$:IF H%>Ø VDU7,12:PRIN 
T'"FILE EXISTS !":CLOSEHH%:PROCA (100) : PR 
OCc1:S$-0:H$20: ENDPROC 

2040 CLS:PRINT"Creating file."'"Please 
wait...":9str-"*SAVE "+fnS+" 0000 +5200" 
:CALL oscli:PRINT"File created.":CF$=fn$ 
2050 H$-OPENUP fn$:PROCd(80):P$£-1:PROCC 
1: PROCfb(36,2,3):V$72: PROCs (1) : PROCsp:S$ 
=Ø: ENDPROC 
2060 : 

2070 DEFPROCaz:IF V%>1 PROCfb(36,V$,3) 
2080 V$-?&7l:PROCfb(36,V$,3):P$-V$-l:PR 
OCsp: ENDPROC 
2090 : 

2100 DEFPROCwrite:q$-0:PROCop(23,30,34, 
28,3):PROCqb(24,29,"Quit write") 

2110 REPEAT:REPEAT:RESTORE2150:CALL poi 
nter: PROCsel (2,3) : UNTILS%>Ø:1%=?&71+3*(5 
$«3):IF S%=1:VDU31,1,?&71:NS (12) -FNip (22 
):VDU31,24,2&71: +T$ (13) = =FNip(11) 

2120 IF S$-2: VDU31 , 24, 2871: TS (18) =FNip 
11) 
2130 IF S$-3 q$-1:PROCfb(24,29,10):52-0 
2140 UNTIL q%=1:PROCwf: PROCC1:ENDPROC 
2150 DATA1,22,4,27,1,24,34,4,27,2,24,33 
Fe 253 

2160 : 

2170 DEFPROCdf:PROCfl:IF nf%>Ø f$-FNic 
2180 PROCc1:IF nf$-0 OR f%=Ø ENDPROC 
2190 IF FNconf(3,"DELETE FILE","delete" 
)=2 THEN GOTO2210 ELSE Sstr="*DEL. "+FS (f 
$):IF FS (£%)=FNpad(7,CFS) CLOSE#0:H3=0 
2200 CALL oscli 
2210 PROCC1:S$-0:ENDPROC 
2220. s 
2230 DEFFNip(n$):N$-n$:qx$-1-23* (n$-11) 
: PROCÉb (qx$ , ?&71 ,n$) :AS=FNinp: PROC£b (qx$ 
,?&71,n$):1F AS<>"" THEN VDU31 ,qx3, 2871: 
a$=FNpad (n%,A$) : PRINTaS:=a$ 
2240 IF n%=11:=TS (13) 

2250 =NS (1$) 

2260 : 

2270 DEFFNinp:?8D3-255:*FX200 , 1 
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MARTIAL R 
ARTS . 


Martial arts feature strongly among 
the current top ten best selling 
computer games. Alan Webster, no 
mean player with the keyboard, has 
been chancing his arm (and leg). 


Title : Yie Ar Kung Fu 
Supplier : Imagine Software 
Address : 6 Central Street, 


Manchester M2 5NS. 
Phone : 061-834-3939 
Price : £9.95 
Title : Karate Combat 


Supplier : Superior Software 
Address : Regent House, 
Skinner Lane, Leeds 7. 


Phone : 0532-459453 
Price : £8.95 Tape (£11.95 Disc) 
Title : Way of the Exploding Fist 


Supplier : Melbourne House 
Address : 39 Milton Trading Estate, 
Abingdon, Oxon OX14 4TD. 


Phone :01-943-3911 
Price : £9.95 

The BBC software games market 
contains many sporting simulations, and 
one of the biggest and most recent 


successes in this field is 
type of game. 


the Kung Fu 


There are currently three versions of 
Kung Fu available for the Beeb, from 
Imagine, Superior Software and Melbourne 
House. The object in each game is to 
defeat a martial arts opponent (or 
exponent?) by using a series of kicks and 
punches obtained through several 
key-presses or movements of the joystick. 


A wide variety of moves is possible, 
including low and high kick, low and high 


punch, flying kick, back sweep and 
blocks, plus the usual directional 
movements. To master all of these can 


take a very long time, All 
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three games 


can be controlled from both keyboard or 
joystick, but I found that Yie Ar Kung Fu 
was the only one that was easily 
controlled from the keyboard. 


oooooo 010000 9 
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YIE AR KUNG FU 

Although Kung Fu is traditionally 
unarmed combat, this version from Imagine 
features both armed and unarmed fighting. 
The object is to beat eight opponents, 
including the delectable 'Fan', a female 
who relies heavily on kicking. 


To defeat an opponent, you must land 
eight blows before he or she does. If you 
manage to defeat your opponent without 
once being hit yourself, then you score 
bonus points. 


After every fourth opponent, things 
hot up a little, and numbers of kitchen 
utensils are hurled at you, including the 
inevitable wok. To survive, you must 
either smash or avoid all of these. 


The game is colourful, using an eight 
colour mode 5 screen, and the action is 
relatively easy to control from either 
keyboard or joystick, with only 5 keys 
needed to launch one of 16 various 
attacks. My major criticism of this game 
is that it is perhaps a little too easy 
to win. 


KARATE COMBAT 

In Karate Combat, you have twice as 
many opponents to defeat as in Yie Ar 
Kung Fu, and as with true Kung Fu, the 
game concentrates only on hand and foot 
combat. 


As with all three of these packages, 
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you are allowed the option of keyboard or himself is drawn into combat, while the 
joysticks, but the seven-key action will ears are caressed (?) with music of a 
likely tie your fingers in knots. pleasantly oriental flavour. 


Game options are selected with the 
function keys, and if you elect to play 
against the computer your opponents 
become progressively more proficient, 
advancing from novice to seventh dan. 


If you have no joysticks you will be 
at a serious disadvantage when playing 
against the computer, and your attempts 
to simultaneously coordinate the EIGHT 
keys required will produce apoplexy. 


unmmunmi 


The game offers three modes of play: 
single player practice, a two-player 
game, or fighting the computer. And you 
may also enter a competition with a £100 
prize if you get really hot. 


Karate Combat makes good use of mode 
I graphics. It plays a challenging game, 
and represents excellent value for money. 


WAY OF THE EXPLODING FIST 
This version from Melbourne House has 


received rave reviews for other machines Not  withstanding, Way of the 

and looks like doing the same on the BBC. Exploding Fist is for my money the best 

of the three games reviewed here. Its 

The opening screens are well magnificent graphics and animation 

conceived, and the viewer is treated to a combined with just the right degree of 

nicely animated fight between difficulty give it a clear edge over the 
well-trained professionals before he opposition. 

el 
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PERSONAL DIARY MANAGER (BEEBUG Vol.4 No.7) 

Although not part of the original program, the "Exit to menu" option can be extended 
to work with options 2,3 and 4 by adding the following lines to the main program: 

1195 MM3=Ø 1755 IF MM% X%=366:MM%=Ø 

1675 IF MM$ X$-366:MM$-0 1835 IF MM$ X$-366:MM$-0 


BEEBUG Filer (BEEBUG Vol.4 Nos6 - 8) 
A small bug has emerged in the sort routine. Change lines 8980 and 9000 as follows: 
8980 R=Ø:REPEAT:R=R+1:UNTIL pS=field$(R) OR R=f 
9000 IF R-f AND p$<>field$(R) PRINT"No such field":ENDPROC 
A similar bug also exists in the FNfield function which can be corrected by changing 
the following two lines: 
21620 REPEAT: I=I+1:UNTIL p$-field$(I) OR I=f 
21640 IF I-f AND p$<>field$(I) THEN =" " ELSE -record$(I,R) 
These corrections have been incorporated in Filer on the magazine cassette/disc. 
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Mail-Merge 
with Filer 


Filer is the popular and powerful dat- 
abase program published in BEEBUG 
Vol. 4 No. 6 to Vol. 4 No. 8. In this 
short update, Mike Williams shows 
how Filer may be modified to pro- 
vide a useful mail-merge facility for 
those with any suitable wordproces- 
sor or editor (including View and 
Wordwise). 


BEEBUG Filer, the database program that 
was described in the November to Jan/Feb 
issues of the magazine can be readily 
extended or modified to provide additional 
features. Such extras often cost little in 
code, as frequent use can be made of 
existing procedures and functions, a big 
advantage of the modular approach adopted. 


This month we will see just how easy it 
is to add a mail-merge facility for use 
with View or Wordwise. Indeed, any word 
processor or editor that can produce ASCII 
files will do. 


To explain what is meant by 
'mail-merge' consider the situation where 
we want to send the same letter to a 


number of different people whose names and 
addresses are all held in a datafile. We 
can use a word processor to create the 
letter and mark in some way where the name 
and address of the recipient are to 
appear. A mail-merge option will then 
merge the text file and the datafile 
together to produce as many copies of the 
letter as required, each individualised 
with information from the datafile. 

This could be simply the name of 
the addressee, but could also include 
other data as well. In this particular 
version up to 9 different fields may be 
referenced at any one time, and Filer's 
other features may be used to select which 
particular records from a given database 
will be used in any mail-merge operation. 


To add the mail-merge facility to 
Filer, load your existing version of Filer 
into memory and then add the lines listed 
at the end of this article (for Basic I 
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This letter is designed to illustrate the 
latest addition to the BEEBUG Filer database 
progran. This is a fantastic mail-merge facility 
that can be used with View, Mordwise or any 
other wordprocesser that can produce ASCII 
files. 


Just look at this letter to see how good it 
is and remember that only 25000 other people 
will have received å sinilar personalised letter 
in addition to youself, 


Yours sincerely 
Mike Willians 


GMMPTMMEU39 98240909999 009 0509099 080 09 E00 03 0000900004909 990 E0000 9 40044. 


Text File 


change OPENUP to OPENIN). This produces 
the updated version of Filer, but it is 
advisable to save this separately to your 
original version until you have checked 
that your new version works correctly. 


To use this new facility, create some 
text with your word processor, marking 
each point where data is to be inserted 
from the datafile by 81, 82 etc. Once this 
has been done, create a spooled version of 
the text (option 8 in Wordwise, remove 
rulers and other commands in View). Run 
Filer and enter the commands: 

OPEN <datafile> 

MERGE <textfile> 
For each record in the datafile, the text 
will be printed out with @1 replaced by 
the contents of the first data field, (2 
by the second and so on. If you want to 
change the marker character (80), you can 
do so with the command: 

MARK <character> 
specifying the character of your choice. 
Up to nine (801 to 809) different fields can 
be inserted into any one piece of text, 
and each data field can occur as many 
times as required. The SELECT option can 
also be used as described in previous 
Filer articles (BEEBUG Vol.4 No.8) in 
order to merge only selected records with 
a given text file. 


PRACTICAL POINTS 

If you avoid all unnecessary spaces 
when adding this amendment to Filer, and 
run Filer with PAGE set to &1400 (type: 
PAGE-&1400 <Return>), you should encounter 
no memory problems. Note that as the Filer 
mail-merge facility is implemented quite 
simply it may upset any previous formatt- 
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BEERUG FILER 
A ————M 
KDE | | AS (TT 307 Ty TT HUNE UD SERIE, 
F Bloggs, 

2 High-Street, 
Merivale, 
Leicester LE2 310, 


Dear F.Bloggs, 
This letter is designed to illustrate the 


latest addition to the BEEBUG Filer database 
progran. This is a fantastic mail-merge facility 
that can be used with View, Wordwise or any 
eps weréprecessor that can produce ASCII 
iles, 


„Just look at this letter to see how good it 
js and remember that only 25000 other people 


Merged File 


ing of the text file. This particularly 
affects right justification of text. This 
is virtually unavoidable unless arrange- 
ments were made to pass the mail-merged 
text back through the word processor, or 
comparable formatting routines were to be 
included within Filer itself. 


When used with View files, Filer has no 
way of knowing where tab stops were set. 
All tab characters are therefore ignored 
and should be replaced in the original 
text by spaces. 


SPOOLING DATA FROM FILER 

It may be worth pointing out that Filer 
already has the ability to transfer data 
into a file suitable for reading in by a 


SUMMARY OF BEEBUG FILER COMMANDS 
CREATE <filename> Create a datafile 
CREATE <filename>/n Create a format file 
OPEN <filename) Open a datafile 
CLOSE Close current datafile 
EXTEND <filename> Extend a datafile 
ADD Add a record 
DELETE n Delete record n 
UPDATE n Update record n 
DISPLAY Display all records 
DISPLAY n Display record n 
FORMAT <filename> Select output format 
PRINT Print all records 
PRINT n Print record n 
SELECT <search> Specify search string 
SORT <data field> Sort on data field 
MERGE <text file> Perform mail-merge 
COMMANDS List all commands 
END Exit from Filer 
* <command> Perform any *command 
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word processor. This can be useful when 
compiling reports in which it is desirable 
to include output from a datafile. To do 
this will require the use of a format file 


and essentially follows the same pattern 
as when outputting to a printer or to the 
Screen. To output data to a file called 
DATA from a datafile called RECORDS, 
proceed as follows: 

OPEN RECORDS 

*FX5,0 

FORMAT FORMI 

*SPOOL DATA 

PRINT 

*SPOOL 
FORMI is any suitable format file. The 
resulting file DATA can then be read in 
using View or Wordwise. 
MAGAZINE CASSETTE/DISC 
^ If you do not already have a copy of 
BEEBUG Filer, then a complete version is 
included on this month's magazine 
cassette/disc, and this includes the 
mail-merge feature described above. The 
additional 'Filer Notes' are also still 


as mentioned in BEEBUG Vol.4 
No.8, on receipt of an A5 SAR. We also 
hope to publish further updates to the 
Filer program from time to timè. A program 
to display the contents of a datafile 
graphically is already well advanced. 

—AA—Á————mm 

1050 delete$-0:searchS$-"-l":mark-64 

1100 DATA 15 

1170 DATA UPDATE,SORT,SELECT, EXTEND , MER 
GE,MARK 

1770 IF C-15 THEN PROCdisplay (pmS, 2) 

1780 IF C=16 THEN mark-ASC (pm$) 

4820 LOCAL G,I,start,end,n:IF flag<2 TH 
EN n=VAL (p$) ELSE Fl =OPENUP (p$):IF Fl-0 
THEN PRINT"No such text":ENDPROC 

4890 IF flag-l AND NOT format% THEN PRI 
NT"No format":ENDPROC 

4970 IF flag-0 THEN PROCdisplayl(I) ELS 
E IF flag-l THEN PROCprintl(I) ELSE IF f 
lag-2 THEN PROCmergel (I) 

IF I<end AND flag>2 THEN G=GET 

IF flag-2 CLOSE#F1 

10800 DEF PROCmergel (n) 

180820 LOCAL char: PTR#F1=Ø 

16849 REPEAT: char=BGET#F1 

10860 IF char=mark THEN n=BGET#F1-48: PRI 
NT FNstrip(record$ (n,@),".");ELSE IF cha 
r>31 AND char<128 VDUchar 

10870 IF char=13 THEN VDU13,10 ELSE IF c 
har=26 VDU32 

10880 UNTIL EOF#F1:VDU12:ENDPROC 
18900 : 


available, 


tel 
21 
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Many of you will have seen the fancy 
screen shuffle employed by some com- 
merical games, where an apparently 
random screen dissolves into a 
detailed graphics picture. Now you 
can achieve similar effects with these 
short routines by Geoff Bains. 


Many Commercial games perform minor 
miracles with the Beeb's display. This 
short program enables you to imitate one 
of the most popular effects. Micro Power's 
Ghouls was one of the first with this 
feature. Each screen of the game was drawn 
invisibly and then brought into view with 
the whole screen swirling around. This 
makes a startling and effective intro that 
is easily added to your own programs. 


The effect is achieved by manipulating 
the 6845 display chip's registers, namely 
the vertical and horizontal display and 


position registers (1, 2, 6, and 7). By 
decrementing the display registers to 
zero, the size of the picture is reduced. 


Decrementing the two position registers to 
half their normal value as the display 
registers are changed keeps the picture in 
the centre of the screen. For further 
information on the 6845 CRTC see BEEBUG 
Vol.l No.8 Page 29. All this can be done 
in Basic, but an interrupt driven machine 
code routine allows you to be doing other 
things while the picture is shrinking or 
growing. 


Type in the program and save a copy in 
case of any disastrous mistakes. Type RUN 
<Return> to see the effect. As it stands 
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screen containing the 5904*lo ed 
assembler listing. If you 

incorporate the procedure 28 598,4 
PROCassem into your own 

programs and call Toe once nibh 838c"6 
to assemble the code 8D 81 FE STR 
(placed at 80900, though A "6 hia 
this can be changed by 92 8D OG FE ST 
altering line 1060) a mode 

Ø, | or 2 screen can be 


shrunk with CALL shrink and 
it will be restored back to 
its normal self with CALL grow. 


To save the machine code only, type: 

*SAVE SHUFFLE 900 +FF «Return»? 
To activate the screen shuffle from your 
own program, you will need to include some 
lines at the start to set up 'shrink' and 
'grow' and to *LOAD the machine code. You 
can then shrink and grow your selected 
screen display at will. 


For example, if you have a mode 2 
graphics screen *SAVEd as SCREEN, 
your program could begin: 
shrink=&9ØØ:grow=&919 
MODE 2 
*LOAD SHUFFLE 
CALL shrink 
*LOAD SCREEN 


the program shrinks and grows the mode 1 CALL grow 

4— 17 Windows and Icons 3:IF (NS(i%)=5$ AND NS$(i%+1)<>S$) PROCex 
2280 CALL input:?8D3-0:*FX200,0 :G0TO2360 
2290 =Sstr 2350 IF (NS(i%)<>S$ AND N$ (i$*1) CSS) :I 
2300 : F N$(i$)»NS(i$*1) PROCex 


2310 DEFFNpad(L%,a$):IF LENaS=L%:=a$ 

2320 L$-L$-LENa$:FORi$-lTOL$:a$-a$4" ": 
NEXT: =a$ 

2330 : 

2340 DEFPROCsort: REPEAT: e$20:FORi$-lTO2 
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2360 NEXT:PROCdis:UNTILe$-0:IF FNconf (8 
,"WRITE TO FILE?","write ")-l PROCwf 
2370 PROCCl:S$-0:ENDPROC 

2380 DATA9,13,5,5,1,16,21,5,5,2 

2390 : 
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can be speeded up or 
slowed down by altering the four byte 
value in line 1480. Try &FFFFFFFE for a 
very fast change around. With this routine 
you can now give your software that truly 
professional touch. 
NJ 1Ø REM PROGRAM SHUFFLE 

20 REM VERSION BØ.2 

30 REM AUTHOR GEOFF BAINS 

40 REM BEEBUG MAY 1986 

50 REM PROGRAM SUBJECT TO COPYRIGHT 


The process 


60 


100 MODE 
110 PROCassem 
120 FOR I%=6 TO Ø STEP -1 


581 ce 


$982^n9 a1 


FE Bio 


88 28 
6981 60 


6982 
regs 


81 LDR 


1e? a 
84 8D OG FE STR h 


130 I=INKEY (3ØØ) :CALL shrink 


140 I-INKEY (300) :VDU19,0,1$;0; :CALL grow 
150 NEXT I$ 

160 END 

178 * 

1000 DEF PROCassem 

1010 EVNTV-&0220 

1020 OSBYTE=&FFF4 

1030 OSWORD=&FFF1 

1040 CRTC-&FE00 

1050 CRTCREG=&FE@1 

1860 FOR pass=ØTO3STEP3:P%=&Ø9ØØ 
1978 [OPTpass 


2400 DEFPROCex:NS (0) -N$ (1%) : TS (9) =TS (i 
) :N$ (18) =NS (1$*1) : TS (1$) =TS (13+1) :NS (1$ 
1) =NS (Ø) : T$ (3$*1) TS (Ø) :e%=e%+1 : ENDPROC 

5000 : 

5010 DATAØ,8,19,1,5,ADJUST..," ",pointe 
r speed,background colour,foreground col 
our,3 

5020 DATA3,6,16,1,3,Load file,Delete fi 
le,Create file,3 
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.shrink 
896 LDA #in MOD 256:STA EVNTV 
1100 LDA #in DIV 256: 
STA EVNTV+1 
18 LDA #14:LDX #5: 
JSR OSBYTE 
20 LDA $0:STA&70: 
JSR set:RTS 
30 .grow 
146 DA #out MOD 256:STA EVNTV 
50 LDA #out DIV 256:STA EVNTV+1 
60 DA #14:LDX #5:JSR OSBYTE 
165 LDA 432:STA&70 
70 .set 
1188 DX #timer MOD 256 
1960 DY #timer DIV 256 
200 DA #4:JSR OSWORD 
210 RTS 
220 .in 
230 PHA: TXA : PHA: TYA : PHA: PHP 
240 JSR regs 
250 NC &70:LDA &70:CMP #33:BNE ret 


260 LDA#1:STA CRTC:LDA#@:STA CRTCREG 
1270 LDA #13:LDX #5:JSR OSRYTE 


286 .ret JSR set 
1296 PLA: TAY: PLA: TAX: PLA: PLP: RTS 
1300 .out 


310 PHA: TXA : PHA: TYA : PHA: PHP 
320 JSR regs 
13380 DEC &70:BPL ret2 
340 LDA #13:LDX #5:JSR OSBYTE 
350 .ret2 JSR set 
1360 PLA: TAY: PLA: TAX: PLA: PLP: RTS 


1380 LDA #1:STA CRTC 
390 LDA $40:SEC:SBC &70:ASL A:STA CR 


TCREG 
400 LDA #6:STA CRTC 
418 LDA #32:SEC:SBC &70:STA CRTCREG 
420 LDA #2:STA CRTC 
430 LDA #98:SEC:SBC &70:STA CRTCREG 


1440 LDA #7:STA CRTC 

1450 LDA #68:SEC:SBC &70:LSR A:STA CR 
TCREG:RTS 

1460 .timer 

1470 ]:NEXT pass 

1480 !P$-&FFFFFFFB 

1490 P$?5-&FF 

1500 ENDPROC 


ie) 


5030 DATA8,6,22,1,3,Write entry,Sort en 
tries,Delete page,3 

5060 DATAG,11,12,1,8,black,red,green,ye 
llow,blue,magenta,cyan,white,8 
6000 : 

6010 DATA1,3,13,17,17 

6020 DATA4,1,13,14,14 

6030 DATA9,1,19,2Ø,19 

6060 DATA1,1,5,3,5,6,4,7,4,5 


MƏ+IIH=C 


DO-IT-YOURSELF 
BASIC (Part 2) 


Alan Webster shows how to exploit 
the basic program described last 
month by implementing several new 
and interesting additions to the Basic 
language. 


Last month we discussed the basic 
program needed to decode and implement new 
Basic keywords. This month we shall be 
adding the detail to that program to show 


how to implement several new Basic 
commands and instructions. In each case 
the additional code should be added to 


last month's program. 


CAPS LOCK AND SHIFT LOCK 
The first new commands to be covered 

provide program control of Caps Lock and 
Shift Lock, allowing them to be switched 
on and off. The four new commands are: 

CAPSON CAPSOFF 

SHIFTON SHIFTOFF 
These commands will select the relevant 
keyboard mode, and reflect this in the two 
L.E.D. lights on the casing. 


When one of the new keywords is met, 
the machine code jumps to the relevant 
routine to select the relevant keyboard 
value for the Caps Lock and Shift Lock 
state. This is then set by using OSBYTE 
202. OSBYTE 118 is then used to reflect 
the Caps Lock and Shift Lock status in the 
keyboard L.E.D. lights. Here is the 
additional code needed for this: 


3040 OPT FNEQUS ("CAPSON") 
3050 OPT FNEQUB (0) 

3060 OPT FNEQUW (capson) 
3070 OPT FNEQUS ("CAPSOFF") 
3080 OPT FNEQUB (Ø) 

3090 OPT FNEQUW (capsoff) 
3100 OPT FNEQUS ("SHIFTON") 
3110 OPT FNEQUB (0) 

3120 OPT FNEQUW (shi fton) 
3130 OPT FNEQUS ("SHIFTOFF") 
3140 OPT FNEQUB (0) 

3150 OPT FNEQUW (shiftoff) 
4500 .capson :JSR chkend 
4520 LDX #&20 

4530 JMP reflect 

4550 .shifton 


4560 JSR chkend 
4570 LDX #&1Ø 
4580 JMP reflect 
4600 .capsoff 
4610 .shiftoff 
4620 JSR chkend 
4630 LDX #&30 
4650 .reflect 
4660 LDA $202 
4670 LDY #0 
4680 JSR &FFF4 
4690 LDA #118 
4700 JSR &FFF4 
4720 JMP cont 
[Basic II users may omit the OPT FN part 
of lines 3040 to 3150. This means that 
line 3040 would be: EQUS ("CAPSON") .] 


\Set Caps/ 
NShift-Lock 


NSet LED status 


LISTING OS VECTORS 

The next keyword to be added is 
VECTORS. This will print out the values of 
the operating system vectors in page 2 of 
memory (useful information for 
programmers). These vectors can be found 
on page 254 of the Advanced User Guide. 


3160 OPT FNEQUS ("VECTORS") 
3170 OPT FNEQUB (Ø) 

3180 OPT FNEQUW (vectors) 
5000 .vectors 
5010 JSR chkend 
5020 LDY #0 
5030 .veclp 


Nector offset 


5040 LDA #ASC("(") \Print ( 
5050 JSR &FFEE 
5060 LDA #ASC("&") \Print & 
5070 JSR &FFEE 
5080 LDA #ASC("2") MPrint 2 


5090 JSR &FFEE 
5100 TYA 

5119 JSR phex 
5120 LDA #ASC(")") 
5130 JSR &FFEE 
5140 LDA #32 

5150 JSR &FFEE 
5160 LDA #ASC ("=") 
5170 JSR &FFEE 
5180 LDA #32 

5190 JSR &FFEE 
5200 LDA #ASC ("&") 
5210 JSR &FFEE 
5220 LDA &200,Y 
5230 STA &70 

5240 LDA &201,Y 
5250 STY &71 

5260 JSR phex 
5270 LDA &70 

5280 JSR phex 
5290 LDY &71 

5300 JSR &FFE7 


\Print vector lo 
\Print ) 


\Print Space 
\Print = 
\Print Space 
\Print & 

\Get vector 
\value lo. 
\Get vector 
\value hi. 
\Print hi byte 
\Print lo byte 


\Newline 
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5310 INY:INY 
5330 CPY #&36 
5340 BNE veclp 
5360 JMP cont 


NNext vector 


Add these lines together with those 
for CAPSON/CAPSOFF etc. to the main 
program and re-run this. Then type CALL 
&900 «Return? to set up the machine code 
and add the new keywords to Basic. 


All five new keywords (CAPSON, 
CAPSOFF, SHIFTON, SHIFTOFF and VECTORS) 
may now be tested. This is most readily 
done in immediate mode. Try CAPSON and 
CAPSOFF, typing in any text from the 


keyboard to see the effect. To list the 
vectors just type VECTORS <Return>. You 
should notice that the BRK vector (&202) 
is set to our own machine code routine, 
and not its default value. 


The VECTORS routine simply loops from 
&200 to &234 in steps of two, reading the 


values of these vectors and printing them 
in hexadecimal using  Basic's  'print 
accumulator as two byte hex' routine 
(phex). 
ITALIC PRINTING 

The last example of a new instruction 
is the keyword ITALIC to turn italic 


printing on and off. The keyword takes an 
extra parameter, which should be Ø to turn 
italics off and 1 to turn italics on. The 
keyword on its own will also enable italic 
printing. 


To use this in a program, or in 
immediate mode, simply type the command, 
and subsequent output will be in italic or 
normal printing as selected. 


The italic routine works in any 
graphics mode by re-defining character 
255, rotating the top 3 lines of the 
character left and the bottom 3 lines 
right. The new character is then printed 
in place of the old character. 


The routine will not print italic 
characters in mode 7, and only re-defines 
characters 32 to 254 with the exception of 
the delete character (127). 


As an example, add this further code 
to the main program and re-run once again 
before typing CALL &9ØØ. Type 'ITALIC 1' 
in immediate mode and select mode 6. Then 
type in any text, and this should appear 
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EEE SE Et SE EEE GN EEE SEAS SESS SS = 


should 
its normal text 


in italics. Typing "ITALIC @' 
return the machine to 
state. 


As the routine re-directs the 
CHaracter Vector' (WRCHV), not only is 
keyboard input displayed in italics, but 
also any other text that is output (e.g. 
LISTing a Basic program). 


'"WRite 


This example, though only a 
one, shows that it 
pass parameters with a 
this case, the parameter has to be either 
9 or 1 (with or without leading spaces). 
More complex parameter decoding would take 
up much more code. 


simple 
is also possible to 
new keyword. In 


The relevant code for the 
keyword is as follows: 


new ITALIC 


3190 OPT FNEQUS ("ITALIC") 
3200 OPT FNEQUB (Ø) 

3210 OPT FNEQUW (italic) 
6000 .italic 


6010 LDY &A NStatement offset 
6020 .itlp 

6030 LDA (&B) ,Y \Get next char. 
6040 INY 

6050 CMP #32 \Spaces not needed 
6060 BEQ itlp 

6070 CMP #13 \Ret., use ITALIC] 
6080 BEQ italok2 

6090 CMP #49 \=1, use ITALIC] 
6100 BEQ italok 

6110 CMP #48 N=Ø, use ITALICO 


6120 BNE italn 
6130 JMP italico 
6150 .italn 

6160 BRK 

6170 OPT FNEQUB (16) 
6180 OPT FNEQUS ("Syntax error") 


\Not blank @ or 1 


6190 BRK 

6210 .italok2 

6220 DEY \Adjust PTRHA 
6230 .italok 

6240 STY &A NReset PTR#A 


6250 JSR chkend 

6270 LDX #indir MOD 256 
6280 LDY #indir DIV 256 
6290 CPX &20E 
6300 BNE setit 
6310 CPY &20F 
6320 BEQ setup 
6330 .setit 
6340 STX &20E 
6350 STY &20F 
6370 .setup 
6380 JMP cont 


\Italic 

\routine 
\Has italic been 
\set up? 


\Set OSWRCH vector 
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n——————————— SS 
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.indir 

STA chrbuf NStore char 
PHA:TYA:PHA — NPreserve A,X,Y 
TXA : PHA 

LDA &355 \Test for mode 7 
CMP #7 

BEQ noit 

LDA chrbuf \Test for control 
CMP #32 \character (<32) 
BCC noit 

CMP #127 NTest for delete 
BEQ noit 

JMP ysit 

.noit 

PLA:TAX:PLA NRestore NED GR A 
TAY: PLA Nand exit to 
JMP osbyte \default OSWRCH. 
.ysit 

LDX #chrbuf MOD 256 

LDY #chrbuf DIV 256 

LDA $10 \OSWORD 10, read 
JSR &FFFl Nchar definition 
LSR chrbuf*l \Shift top 3 
LSR chrbuf*2 \lines of char 
LSR chrbuf+3 \left, and 

ASL chrbuf*6 \bottom 3 lines 
ASL chrbuf*7  Nright. 

ASL chrbuf+8 

LDA #23 \Redefine char 
JSR osbyte 

LDA #255 \255 to be our 
JSR osbyte \italic char. 
LDY #1 

.chrlp 

LDA chrbuf,Y 

JSR osbyte 

INY 

CPY #9 

BNE chrlp 

LDA 4255 \Output italic 
JSR osbyte Ncharacter 
PLA:TAX:PLA — Restore A,X,Y 
TAY:PLA:RTS — NReturn. 

.vect2 

OPT FNEQUW(!&20E) 

.chrbuf 

OPT FNEQUS ("0000000000") 
.italicØ 

STY &A \Reset PTR#A 
JSR chkend 

LDA vect2 Reset OSWRCH 
STA &20E vector, to turn 
LDA vect2+1 \off italics 
STA &20F 

JMP cont NEN. 

osbyte- &EØA4 


osbyte= &EØA4 


SAVING THE CODE 

To save the machine code generated by 
the complete program (i.e. last month's 
listing plus any or all of the three 
additions listed here), you will first 
need to find the start and end addresses 
of the code. These are displayed when the 
program is run. If for example, the two 
addresses are &900 and &B57 for start and 
end respectively, then you will need to 
type: 

*SAVE BASX 900 B57 «Return» 
to save the machine code in the file BASX. 


When you wish to use these Basic 
extensions in a program of your own, 
simply include the line *RUN BASX at the 
start. 


At the moment, the machine code for 
these extensions occupies the function key 
buffer at &BØØ  (Econet workspace on the 
Master 128). To alter the address at which 
the code is assembled, change the value of 
P$ in line 1970 of the original program. 


Now you have the basic framework for 
adding any of your own commands to Basic. 
Indeed, if you have any particularly good 
ideas why not drop us a line and let us 
know. 


BASIC I 


Basic I users will need to add the 
three functions listed below to both last 
month's program and this month's extended 
version to overcome the lack of EQUB, EQUS 
and EQUW in the Basic I assembler. The 
lines to do this are as follows and these 
should be appended to the program. 


10000 DEF FNEQUB (B3) 

10010 ?P%=B%:P%=P%+1 

10030 -PASS 

10050 DEF FNEQUS (S$) 

10060 $P%=5$:P%=P%+LEN (SS) 
10070 -PASS 

10098 DEF FNEQUW(W$) 

10100 !P$-W$:P$-P$42 
16118 =PASS 


You will also need to modify five of 
the original lines as follows: 


3010 OPT FNEQUS ("VARS") 
3020 OPT FNEQUB (Ø) 

3030 OPT FNEQUW (vars) 
3500 OPT FNEQUB (255) 
3530 OPT FNEQUW(!&202) 


el 
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Printer Survey 


This month, BEEBUG brings you upto 
date on the latest printers that have 
appeared for the Beeb since our last 
survey in BEEBUG Vol. 3 No. 8. Simon 


Williams reports on his findings. 


In the period since our last printer 
survey (Vol.3 No.8), several new machines 
have been introduced. Two trends are 
noticeable among dot-matrix printers: an 
increasing dependence on the industry 
standard set by Epson, including Near 
Letter Quality, and the decreasing cost of 
fully-featured printers. We've chosen five 
machines which reflect these trends. 


In addition, we've included two 
competitively priced daisywheel printers, 
which offer high quality print for letters 
and other correspondence. 


SEIKOSHA SP-1ØØØA 

This is a low-cost Epson compatible 
printer, offering many of the features of 
its more expensive companions, and only 
sacrificing speed and a certain feeling of 
robustness. 


The  SP-1000A has the smallest 
dimensions of any of the printers in the 
survey, but still manages to take paper up 
to 10 inches wide. The printer will accept 
Single sheets, which it automatically 
feeds through to a top of form position 
when you move the bail bar forward. It 
also comes as standard with a clip-on 
tractor unit for continuous paper. 


The printer supports all the character 
Sets of the Epson FX8Ø series, including 
proportional spacing and down-loadable 
characters. In addition, it will print 
Near Letter Quality text, selected either 
from the printer's control panel or 
through software. The NLQ typeface is very 
similar to, though slightly smaller than, 
Epson's own. 
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The printer is very easy to use and 
has a good 'feel' to it. It is, however, a 
very lightweight mechanism, and I wonder 
what the print quality would be like after 
a year or so's use. 


The manual supplied runs to 90 pages 
and covers the functions of the printer 
concisely, without much of the 'Japlish' 
which plagued earlier Seikosha manuals. 


The SP-1000A is quite slow by modern 
dot-matrix standards, at only 100 
characters per second in draft mode. It 
is, however, the fastest graphics printer 
tested, completing the sample dump in 320 
seconds. Overall, very good value. 


This is p 
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Seikosha/Amstrad Print Samples 


AMSTRAD DMP200Ø 


This is a printer that BBC Micro 
owners might not immediately think of. 
Although produced for use with Amstrad's 
own micros, it is fully Epson compatible, 
and uses a standard Centronics interface. 
You will need a ribbon lead with a BBC 
Micro plug on one end, but otherwise the 
printer can be used like any other. 


The printer is housed in a dark grey 
plastic case and is not the most 
attractive peripheral ever made. It has a 
Clear Perspex cover reminiscent of 
Mr Sugar's cheaper turntables and is 
shaped more like a flat-bed plotter than a 
printer. This is not accidental, as its 
print head is mounted above the paper and 
prints down onto it. This technique has 
several advantages. It allows single 
Sheets to be fed in easily, and text can 
be printed on thin card, as it doesn't 
have to wrap around a print roller. 
Fanfold paper can also be fed in using the 
built-in tractors, and stored under the 
printer, which can be raised up quite 
securely on two folding legs. The print 
head itself is very light, and similar to 
that in the SP-1000A. 
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.Stylish than earlier Epsons, but is 


The DMP2000 supports Epson control 
codes, and can print in all the standard 
modes including NLQ. The typeface is not 
quite as attractive as on the Seikosha, 
but graphics dumps are as fast. 


The manual supplied is thick and well 
illustrated. It covers connecting and 
setting up the printer with the BBC and a 


number of other micros, and gives full 
details of the commands necessary to 
operate it. 


The DMP2000 is a very good printer for 
the low asking price. Although a little 
slow in operation, dit has several 
redeeming features, in particular its 
paper handling and graphics speed. 


EPSON LX-80 


This is Epson's answer to the flood of 
cheap Epson-compatible printers. It mimics 
the features of the FX-8Ø, and has NLQ 
print built-in. It looks rather more 
still 
quite deep. 


As supplied it can only take cut sheet 
paper, as the tractor unit, which fits on 
top, costs an extra £20. This is very 
surprising, and seems an odd way to 
economise. There can be few users of 
dot-matrix printers who print only on 
single sheets. 


The LX-80 can produce all the normal 
Epson character sets, with the exception 
of proportional spacing. Maybe few people 
use this feature, but it still seems 
peculiar to leave it out, when it's just 
machine-code in a ROM. 


Several of the more common typestyles 
can be selected from the front panel by 
pressing combinations of the FF and LF 
buttons. This allows selection of a font 
other than standard Pica, even if the 
software in use makes no provision for it. 
The Epson NLO font is a very readable 
Roman style typeface made in two passes of 
the print-head. 


The print speed is a conservative 100 
cps, and the test printer dump was a full 
half minute slower than on the Seikosha or 
Amstrad printers. Against that, though, it 
did produce by far the most even graphics 
dump, with very little ‘white lining' 
between each pass of the print head. 
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Epson's manuals have always been good, 
and the one for the LX-80 is no exception. 
It's a smaller format than the others, but 
is spiral bound with over 170 pages. 


A couple of annoying niggles with 
tractors and proportional spacing, but if 
you want an Epson printer... 


"bem o chc qn) e» 
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Epson/Micro-P Print Samples 


MICRO PERIPHERALS MP-165 

This is Micro Peripherals' own-brand 
machine, based loosely on several other 
high quality Japanese designs. It's quite 
tall at 5 inches, although it has a modest 
'footprint' and is built like a tank. This 
is no bad thing for a printer, and the 
even print sample reflects the precision 
of its construction. 


The control panel, on the left of the 
platen at the front, contains the normal 
line feed, form feed and on-line 
selection buttons. In addition, you can 
select the NLO font from here, or by 
sending Epson Escape sequences. 


The printer is fully Epson compatible 
in its other features, including loadable 
characters and proportional spacing. 


The tractors for pin-feed paper are 
positioned behind the roller, so paper is 
effectively pushed through the mechanism. 
Single sheets can also be fed in, although 
this is quite awkward. The mechanism on 
the review machine was stiff and difficult 
to move by hand. 


The printer is rated at 165 cps and it 
certainly moves quickly when printing in 
draft mode. The NLQ font is not Roman like 
most of the others, but is a high quality 
version of the standard Pica typeface. It 
is the nearest to daisywheel quality of 
any of the dot-matrix printers tested. 


The manual is exemplary. Each Escape 


sequence is given at least half a page, 
with print samples and example listings. 
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The MP-165 is not the cheapest printer 
available, but is very well built, runs 
fast, and gives the impression of being 
able to cope with many years of hard use. 


JUKI 5520 

Juki are best known in this country 
for their excellent daisywheel printers, 
but they have now moved into the 
dot-matrix market with the 5510, and the 
5520, which also prints in colour. The 
5510 can be upgraded to the colour version 
for around £120. 


The 5520 is a big printer, although 
its carriage is no wider than normal. The 
standard controls and indicators are 
available, although NLQ can only be 
selected through software. 


Some of the space inside the case is 
to take the colour print mechanism, This 
consists of two pivoted arms, which move 
the four-colour ribbon up and down, so 
that the print head strikes the 
appropriate coloured band. Overprinting 
allows up to 8 colours to be printed. No 
colour print dump routine was supplied, 
but the diagnostic test produces good 
coloured text. 


The printer is both Epson and IBM 
compatible, so if you have an IBM PC as 
well as a BBC (lucky you!), you can use 
the 5520 directly with each. 


The Juki supports all the Epson codes 
and can handle down-loaded characters. Its 
own NLO font is produced in three passes 
of the print head. The quality of the 
characters it produces doesn't appear 
noticeably better than the others, though. 
The graphics dump is fair, though not 
particularly quick. 


The manual is very well produced; over 
150 spiral bound pages including some 
example coloured dumps. Quite a lot of 
this is wasted on the BBC Micro user, 
however, since it includes separate 
chapters on installation with a number of 
different machines, mostly American. 


If you want a very versatile machine, 
offering good compatibility and the option 
of printing in colour, The Juki 5510 
offers good value. If you can afford the 
extra for the 5520, it's cheaper than 
buying the 5510 and the colour upgrade. 
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SAMPLE DAISYSTEP 2900 

This is the cheapest true daisywheel 
printer on the market, so you might expect 
it to miss out on some of the features of 
more expensive machines of its type. In 
fact, you only really lose out on speed. 
The Daisystep has a quoted speed of 18cps, 
so if you're used to a dot-matrix printer 
(or more expensive daisywheel) you'll find 
the Daisystep very slow. 


A daisywheel printer has no chance of 
producing graphics dumps, of course, and 
the only way you can change the typeface 
is to fit a new printwheel. While this is 
quite a simple process on the Daisystep, 
as the print head swivels up to allow easy 
access to the wheel, it's not that easy to 
swap wheels within a document. 


The Daisystep is a big machine, mainly 
due to the 13 inch carriage it uses. This 
means you can easily print A4 sheets 
sideways (or A3 sheets). Only friction 
feed is provided as standard, but both a 
tractor feeder and automatic sheet feeder 
are available as extras (not cheap). 


Controls are set along the front 
panel, and include the standard switches, 
plus a test mode which prints out the 
character set repeatedly. 


The only typeface options are double 
strike, bold and underlined print. These 
are selected by Escape sequence, and the 
sequences are compatible with the Qume 
Sprint printer. The Daisystép's ribbons 


and daisywheels are also interchangable 
with Qume's. 
The manual is a 22 page flimsy 


pamphlet, readable but with a few 
grammatical oddities. It describes setting 
up and using the printer, and includes an 
interesting ASCII chart, where all the 
codes are offset by one! 


I've been using a Daisystep for over a 
year now, and find it a solid (if slow) 
printer, ideally suited for letters to 
bank managers and magazine editors. 


BROTHER HR-15_ 


There are several features which make 
the HR-15 a top quality daisywheel 
printer. For a start, its operation is 
very smooth, and although the hammering of 
the daisywheel petals is not much quieter 
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than the Daisystep, its carriage feed and panel) and a COPY button. This will redump 
head movement is very silky. the printer's 3K buffer, sufficient for an 
A4 page, as many times as you press it - 
very handy. Line feed, form feed. and 
on-line switches are also present. 


similar to double str 
by a small amount 


Daisywheels and print cartridges are 
compatible with Diablo printers, as are 
the control sequences. In addition to the 
normal black ribbon cartridge, the HR-15 
takes a secondary ribbon of a different 
colour, which can be used to highlight 
sections of text under software control. 


nu appears 
document. Thé 
lle name, type 


Daisystep/Brother Print Samples 


The printer has a 15" carriage to take The sample printout from this printer 
wide paper and prints at around 18 cps. It is really superb, well up to anything you 
will automatically feed single sheets to could produce on an electronic typewriter. 
the top-of-form position, even moving the Bold-face and  double-strike print is 
bail bar out of the way to avoid crushing particularly impressive, although there 


the paper. are irregular gaps between the underline 

characters on single strike underlining. 

Controls on the front panel include The printer can also space text 
pitch and line spacing (a great advantage proportionally. 

over dip switches hidden under a back The manual is clear, 


concise and covers all the 
features of the printer 
adquately. If you want a 
true correspondence quality 
printer at a very 
reasonable price (for a 
daisywheel), you will 
probably not find a better 
deal than the HR-15. 


SP1000A LX80 5520 HR15 
DMP2ØØØ MP165 DS2000 


PRINTER SURVEY 


Print quality 
Print speed 
Graphics quality 
Graphics speed 
Graphics linearity 


-nwwa 
AU GR Ww 
UNNA 
UD AURA 
NU AURA 
I 
I 


Feed paper 5 4 3 2 4 4 5 

NLQ print 3 3 4 5 4 EOQ T0 CONCLUSION 

Underline 3 3 3 3 4 5 5 Each of the printers 
Noise (l= v.noisy) 4 4 3 3 3 2 2 reviewed has something to 


offer. The Seikosha and 


Italics 2 4 3 2 2 - - Amstrad machines are very 
Condensed 2 B 4 4 3 = - competitively priced while 
Elite type 2 3 4 4 3 = - still offering good 
Double-width 3 2 3 4 4 = E compatibility, the LX8Ø has 
Emphasized (bold) 3 2 2 4 3 5 5 the Epson name behind it, 
Double Strike 2 3 3 4 4 5 5 the MP165 is fast and very 
Sub/Superscript 2 4 3 4 2 - - robust, and the Juki offers 
Graphics characters 2 Ø 2 Ø IBM) - - the advantage of colour 
Manual 4 3 4 5 4 2 4 print, and both Epson and 


IBM character sets. 


Definable Chars 
Coloured text 
Coloured background 
Coloured graphics 
Proportional spacing Y 
Tractor feed standard Y 


Both daisywheels are 
well-made machines, the 
Daisystep being consider- 
ably cheaper, and the HR-15 
offering its useful Copy 
buffer and auto sheet-feed. 


"sel 


ZZZK 


KKZZZK 
ZAZAw*!NwmrK 
KKZZZK 
KKK KKK 
I 
I 


Approx price inc VAT £200 £160 £230 £300 £330 £200 £350 


All scores in the table above are in the range Ø to 5. 
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*SPOOL GRAPHICS 


The *SPOOL function is one that is 
often underrated and under-used. 
Richard Lambley shows how it can 
provide fast and efficient methods of 
displaying graphics screens, and save 
memory into the bargain. 


Many BBC Basic programs - not only 
games - include a lengthy sequence of 
graphics commands to set up the screen. 
Often, these can take quite a long time 
to finish plotting, especially if 
complicated mathematical calculations are 
involved. 


To speed things up, it's possible to 
convert these graphics commands into 
their constituent VDU codes which can 
then be sent directly to the screen. 


A simple way to do this is with the 
*SPOOL command. Insert in the original 
program the line *SPOOL <filename> at the 


start of the graphics sequence, then 
*SPOOL alone at the end of it. 
Run the program and you will find 


that you have saved as VDU codes all 
Plot, Draw, VDU, Print or Mode statements 
between the Spool commands (subject to 
the usual proviso about Mode and Himem). 
All other instructions encountered are 
executed but produce no output to the 
spool file. You can reload them rapidly 
from disc using just *TYPE <filename>, 
making at the same time a useful saving 
in the memory space that would otherwise 
be needed for storing them. 


The accompanying short program 
converts this spooled file further into a 
sequence of EQUD statements which can be 
*EXECed into an assembler listing (for 
Basic II or higher). Line 300 marks off 
the statements into blocks of 256 bytes, 
ready for OSWRCHing to the screen. 


This makes it possible to write 


graphics routines in Basic and turn them 
into machine-code quickly and easily. 
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10 REM PROGRAM *SPOOL GRAPHICS 

20 REM VERSION BØ.2 1 
30 REM AUTHOR R.LAMBLEY \ 
40 REM BEEBUG MAY 1986 Å 
5Ø REM PROGRAM SUBJECT TO COPYRIGHT 


1ØØ MODE7 
11Ø ONERROR CLOSE#Ø: REPORT: END 
INPUT"Source filename",source$ 
INPUT"Destination filename",dest$ 
14Ø PRINT"Line numbers (Y/N)?"; 
numbr3= (GET AND &DF) 
16Ø PRINTCHRS15 
IF numbr3=ASC ("Y") THENINPUT"First 
line number",numbr$ ELSE numbr$-0 
chan=OPENIN (source$) 
190 chano=OPENOUT (dest$) 
line$-0 
210 REPEAT 
13=Ø:15="" 
23Ø REPEAT 
240 C%=BGET#chan 
250 C$="ØØ"+STRS"C% 
I S=RIGHTS (C$,2)+1$ 
I%=I b+] 
280 UNTILI$-4 OR EOF#chan 
290 I$=" EQUD &"+IS+CHRS&D 
300 IFline$ MOD 640-0 THEN I$=".table" 
+STRS (line% DIV 640)4I$ 
310 IF numbr$ IS=FNlines(line%)+1$ 
320 PROCsave (I$) 
330 line%=line%+1Ø 
340 UNTILEOF#chan 
350 CLOSE#Ø 
360 END 
37 > 
1ØØØ DEF FNlines(L$) 
1010 IF numbr% THEN -STR$(L$*numbr$) EL 
Spat 
1020 DEF PROCsave(text$) 
1030 PRINTtext$ 
1040 FORJ%=1 TO LEN(text$) 
1050 BPUT#chano,ASC (MIDS (text$,J$,1)) 
1060 NEXT 
1070 ENDPROC 


To allow this program to work with 
Basic I, line 290 should be altered as 
follows: 


290 IS-"OPT FNequd (&"+1$+") "+CHR$&D 


and a further procedure added to your 
assembler program as follows: 


10000 DEF FNequd (e$) 
180010 !P$-e$:P$-P$44:-0 
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Two articles in 
BEEBUG Vol.4 Nos.4 and 5 
described a range of data 
structures, such as link- 
ed lists and trees, which 
could be implemented on 
the Beeb. Such new struc- 
tures are most useful in 
simplifying jobs which 
Basic's standard facilit- 
ies (variables and 
arrays) make harder than 
need be. This month, I 
will look at a two other 
simple structures - 
Stacks and queues. 


STACKS 

Perhaps the simplest 
new data structure is the 
'Last In, First  Out' 
(LIFO) Stack. Assembly 
programmers will have 
come across this idea 
already. A stack is an 
area of memory in which 
data can be saved, and 
later recovered. The key 
factors are that data is 
stored temporarily and 
that it comes back in the 
Opposite order to that in 
which it was saved - 
hence LIFO. 


We can easily set up 
a stack in Basic, with an 
array to hold the data 
and a pointer to show the 
last item/next space. We 
have to be able to init- 
ialize the stack, to 
Store and to recover data 
(PUSH and PULL it). We 
must also avoid trying to 
Save more data than the 
Stack can hold, and try- 
ing to pull data from an 
empty stack. Let's look 
at some code to do this. 


The procedure and 
functions assume that you 
have already reserved 


Some issues back we published two articles on the important 
subject of data structures. Surac adds some more useful tech- 
niques to this theme by looking at stacks and queues. 


some memory for the stack using: 

DIM stack(size) 
where 'size' is at least as large as the 
maximum number of items you want to be 
able to stack. 


BASIC STACK 
DEF PROCStackInit (MaxSize$) 
sp$--1l 
spmax$-MaxSize$ 
errorval--9999 
ENDPROC 


DEF FNPush(val) 
LOCAL ok 
ok= (sp$«spmax$) 


IF ok THEN sp$-sp$tl: 
stack (sp%) =val 


=ok 

DEF FNPull 

LOCAL ok,val 

ok= (spå>=Ø) 

IF ok THEN val=stack(sp%): 

Sp$-sp$-l ELSE val=errorval 

-val 

First, create the stack with 

PROCStackInit(n), where 'n' is the stack's 
capacity (not larger than 'size'). The 


Stack pointer ('sp$') is set to the start 
of the stack and 'errorval' is set up for 
later use. 


To save 'item' on the stack, use: 
dummy-FNPush (item) 

FNPush checks that there is room on the 
Stack and, if so, increments the stack 
pointer and saves 'item'. The routine 
returns TRUE (-1) if 'item' was saved and 
FALSE (0) if not (if the stack was full). 
This gives a way of checking if 'item' was 
actually saved and maybe taking corrective 
action. 


Pull a value from the stack with: 
value-FNPull 

If there is anything on 

stack, it is 


the top of the 
transferred to 'value' and 
the pointer is reduced by one. If the 
Stack is empty, then the value of 
'errorval' is returned. This is -9999, but 
it could be anything you choose for your 
own programs. Note that the data still 


stays in the stack array until eventually 
overwritten by a PUSH. Only the pointer 
changes. 


That's all there is to a 
where would you use one? A good example 
would be to reverse a stream of input 
numbers, where the reversing action of the 
stack's LIFO behaviour makes life easy. 
How about temporary storage of a series of 
interim values in a nested or recursive 
set of PROCedures? Understanding a stack 
in Basic can also help when it comes to 
using the same idea in machine code. 


Stack, but 


QUEUES 

We can go on from the idea of a stack 
to a queue, which is a 'First In, First 
Out' (FIFO) data structure. It's probably 
more useful than a stack. It gives a way 
of temporarily storing data, in the order 
in which it was received, for later 
processing. 


We can make a queue with an array and 
two pointers, one showing where the next 
item into the queue goes, and the other 
showing the next one to be removed. The 
trouble there is that, unless you have a 
HUGE array, you might run off the end of 
it. A more practical approach is a 
circular queue. This time, as each pointer 
goes off the 'top', it is automatically 
set back to the bottom. 


A ring like this has one disadvantage 
- if there are 'n' places in the queue, 
you can only recover the last 'n' items to 
be saved. Earlier data is lost as the 
pointers cycle round. You must make sure 
that the array can hold as many items as 
you are interested in. Another problem is 
detecting whether the queue is full or 
empty - if the two pointers indicate the 
same location, it could be either. Have a 
think about it and then look at the code. 


You can see the similarity to the 
Stack routines. PROCQInit(n) sets up the 
queue size, initializes the pointers, and 
sets the flags which the later routines 
will need. 


To add an item to the queue, use: 
PROCQ (value) 
This will always save an item. Since the 
queue is circular, the earlier stack 
problem of not being able to add data to a 
full structure does not apply. Older data 
is simply overwritten. Line 11219 handles 
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the cycling of 'qwrtptr$', which is where 
data is added, while line 1!230 detects 
when the queue is full. In the latter 
case, line 11240  'bumps' the data 
withdrawal pointer,  'qreadptr$', forever 
losing whatever it was pointing to. 


BASIC QUEUES 
11000 DEF PROCOInit (MaxSize?) 
1190198 qreadptr%=Ø 
11828 qwrtptr$--1 
11030 qmax%=MaxSize%+1 
11040 qerrorval--9999 
11658 qfull-FALSE 
11868 qempty-TRUE 
119070 ENDPROC 


11200 DEF PROCQ (val) 

11218 qwrtpbtr$- (qwrtptr$*1) MOD qmax$ 

11220 q(qwrtptr$)-val 

11238 qfull=((qreadptr3=qwrtptr3) AND 
NOT qempty) 

11240 IF qfull THEN 


qreadptr$- (qreadptr$*1) MOD qmax$ 
11250 qempty-FALSE 
11260 ENDPROC 


11400 DEF FNUnQ 

11419 LOCAL val 

11420 IF NOT gempty THEN 
val=q(qreadptr3) : 
qreadptr$- (qreadptr$*1) MOD qmax$ 
ELSE val=qgerrorval 
qfull-FALSE 
gemoty= ( (qreadptr$-qwrtptr$)-1) 
OR (qwrtptr$-qmax$-| AND 
qreadptr$-0) 
-val 


To remove data from the ring, use: 
value=FNUnQ 
This gets the next item from the queue and 
advances qreadptr$, putting it back to the 
start if necessary (line 11420). If there 
was no data, the previously set 
'gerrorval' is returned. 


Where would you use a queue? Anywhere 
you want to save an initially unknown 
number of items and later process the last 
'n' of them. A good example might be if 
the Beeb is reading data from the analogue 
port too fast to deal with at the time. 
Save it in a queue, and deal with it 
later. Again, this is an idea that might 
well be implemented in machine code, but 
an initial understanding in Basic can make 
a useful starting point. The magazine 
cassette/disc has a full demo program of 
the stack and queue procedures in action. 9E] 
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SIDEWAYS RAM 
MODULES 


Sideways RAM has now become 
almost de rigeur for the aspiring BBC 
micro owner who wants to keep up- 
to-date. Geoff Bains has been looking 
at several of the cheap sideways 
RAM modules now available on the 
market. 


Nowadays, to have a BBC micro with no 
sideways RAM is almost criminal. As well 
as allowing you to load up 'ROMs' from 
disc (even cassette, if you're patient), 
Sideways RAM can be used for a variety of 
purposes in its own right. You needn't 
invest in a special RAM board to take 
advantage of this aspect of the Beeb. 
There are now many cheap 16K RAM modules 
available that enable you to stick 
sideways RAM into any Beeb. 


The RAM modules 
ROM socket. These were 
take RAM and 


fit into a sideways 

not designed to 
so are not provided with a 
'write' line from the processor. This 
means that a separate 'write' connection 
must be made. This is simply done with a 
flying lead with a clip to some other part 
of the board. No soldering is necessary. 
You can also fit two or more of these 
sideways RAM modules in your machine to 
hold several ROM images at once. 


SOFTWARE PIRACY 
We are well aware that these devices 
might be used for 


illegal copying of 
Software. We neither support nor 
condone this activity. Software piracy 
is theft. 


PROMICRO 

'"  Promicro's sideways RAM module 
consists of two 8K RAM chips (as used in 
several ROM/RAM boards such as .ATPL's 
Sidewise) mounted one on top of the other 
with some clever wiring and a couple of 
diodes. The whole thing is wrapped in 
black tape to make it look nice. A flying 
lead with a clip probe on the end provides 
the 'write' signal. 


Software to load and save ROM images 
is provided on the instruction sheet along 
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with clear and 


comprehensive fitting 
instructions. The Promicro module is a 
basic model but none the worse for it. 


WATFORD ELECTRONICS 

Watford sells two sideways RAM 
modules: one large and one small. The 
small model is made from two half sized 
RAM chips and another minute logic chip on 
a tiny circuit board the size of a single 
ROM chip. The half sized chips make the 
module very small and neat and it will fit 
into any conceivable situation. A flying 
'write' lead has a clip probe on the end. 
The instructions are in the form of a four 
page A5 sheet and the software comes on a 
40/80 track disc. 


The software is menu driven and 
provides facilities for listing the ROM 
images present in your machine, saving ROM 
images, and loading ROM images. 


A useful feature is a program to 
the RAM into a printer buffer. 
resides in the RAM as a ROM image and 
gives a buffer of around 14000 characters 
instead of the normal 60 or so provided by 
the Beeb. 


turn 
This 


Watford's larger module is a different 
affair. This one comprises two normal 
sized CMOS RAM chips mounted on a small 
circuit board about 3in x 2in with two 
flying leads. One of these is the 'write' 
lead and connects to a chip on the Beeb's 
board; the other connects to link S21. 


The software that accompanies this 
sideways RAM module is little different 
from that with Watford's other model and 
so there is on the face of it little to 
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distinguish the two models other than the 
disproportionate size of the larger 
module. However, the large circuit board 
allows several options to be fitted, 
including a rechargeable battery (£3.45) 
that will keep the contents of your RAM 
alive even when the Beeb is switched off. 


IFEL 

IFEL's sideways RAM module is 
identical in construction to Watford's 
smaller module. However, the software and 
manual are different. The same facilities 
are offered by the IFEL software along 
with a very useful program to transfer 
Basic programs to sideways ROM or RAM 
format. In addition IFEL's manual is a 
pleasure to use. This is a massive 20 page 
A5 booklet that goes into memory 
addressing, the sideways ROM system, and 
the ROM filing system as well as describe 
the software itself. 


TERRELL. 

The Terrell sideways RAM module is 
very similar to the Promicro model. It too 
is made from two 8K CMOS RAMs mounted 
piggy-back and packaged up with black 
tape. The software with this module comes 
on disc or cassette, in versions for the 
standard Beeb or one equipped with a ROM 


board, and provides a familiar set of 
facilities. ROM images can be saved and 
loded to disc and those present in your 


machine listed. 
CYGNET 


The Cygnet Ramwise sideways RAM module 
is also based around two piggy-back 8K 


MERE D 


£29.50 


Watford 
Large Small 


Price £34.50 £33.35 


Address 6 St.George 250 High 
Road Street 
Ilford Watford 
IGl 3PQ Herts 


Street 


Herts 


Phone 9923- 


37774 


9923- 
37774 


Software Disc Disc 
List ROMs * * 
Load ROMS * * 
Save ROMs * * 
Buffer * i 


Watford 


250 High 


Watford 


CMOS RAM chips. This time the whole device 
is packed in resin inside a tiny plastic 
case giving a very robust, neat finish. 


There are two probe clips to attach to 
chips on the Beeb's main board with this 
module. The software comes on disc and 
provides facilities for loading and saving 
ROM images, but rather strangely the 
software cannot distinguish between an 
empty socket and a sideways RAM module 
when displaying the ROMs in your machine. 


CONCLUSIONS 

There isn't much to choose between 
these modules. They all offer very similar 
features. Those made up from the half 
Sized CMOS RAM chips are neater and more 
'state of the art' but the advantages are 
very intangible and the disadvantage is a 
higher price (though IFEL keeps this down 
to a reasonable level). 


All the software does the basic tasks 
of saving and loading ROM images and 
listing the ROMs present in your machine 


at the time. The option of using the RAM 
as a printer buffer will appeal to many 
users and this singles out Watford's two 
boards and IFEL's model. IFEL's -also has 
the useful conversion program for creating 
ROM images from Basic programs. 


If you are only interested in cost 
then Terrell's model is the cheapest and 
perfectly serviceable. However, the model 
with the most features at a reasonable 
price, and therefore the pick of the 
bunch, has to be IFEL's. = 


IFEL Terrell 


Cygnet 


Ramwise 


£26.85 £22.00 £25.95 
36 Upland 
Drive 
Plymouth 
PL6 6RD 


7b Essex 
Gardens 
Hornchurch 
RM11 3EH 


PO Box 27 


Bordon 
GU35 OHH 


7752- 
787058 


04024- 
71426 


04203- 
89220 
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Most versions 
of Basic have 
some facility to 


generate so- 
called random 
numbers, and 
these have an 
important role 
to play in many 
programs from 
games to serious 
applications. 


If we throw a dice ten 
expect results such as: 

Zale a. oa A 6 
or similar. Providing the dice is unbiased 
we do not expect any particular pattern or 
sequence of results to be present or 
repeated. In fact we assume that each of 
the six possible results has an equal 
probability at every throw. This is what 
we mean by ‘random’. 


times we may 


A computer doesn't work on random 
happenings, being far too logical, but it 
can generate a long series of apparently 
unrelated numbers, starting at a number 
which is called a 'seed', Using a built-in 
routine, the computer generates numbers we 
find unpredictable and random, but as 
these numbers are not strictly random they 
are often termed 'pseudo' random numbers. 


1Ø REM RANDOM DICE 
30 MODE 7:PRINT:PRINT 
40: 
50 FOR I=1 TO 10 
60 FOR J=1 TO 10 
70: 
80 dice-RND (6) 
90 PRINT" ";dice; 
110: 
120 NEXT J 
130 PRINT:PRINT 
140 NEXT I 
150: 
200 END 


36 


Random numbers play an Supoose we wish to 
important role in many simulate the throwing of a 
programs, from games to dice, i.e. six equally 
serious applications. Cyril likely but unpredictable 
Hall explains how random whole numbers. These may 
numbers are generated in be generated in BBC Basic 
Basic, and how to exploit by the function RND(6). 

: 5 The program, RANDOM DICE, 
them to advantage in your illustrates its use. 
programs. 


When the program is entered into the 
Beeb and run, a hundred results simulating 
the throwing of a dice will be displayed, 
and further runs will produce a different 
Set of results each time. 


An improvement may be made to the 
program by adding the following lines. 
Just list the program and then enter: 


20 DIM count (6) 
100 count (dice) =count (dice) +1 
160 FOR K=1 TO 6 


170 PRINT;" ";K;"-";count(K); 

180 NEXT K 

190: 

When the extended program is run, it 


will still generate the hundred results, 
but it will also count and display how 
many times each of the six digits was 
Selected so that some assessment of the 
'randomness' may be formed. 


Suppose we wish to simulate the throw- 
ing of a pair of dice. Obviously the 
results must be between 2 and 12 but they 
are not equally likely as the probability 
of scoring seven is 1/6 whilst that of 
Scoring twelve is only 1/36 (because only 
a pair of sixes will score a 12, but a 
number of combinations will produce a 
seven). A good simulation is available by 
using RND (6)+RND (6) and this may be 
verified with our RANDOM DICE program by 
changing three lines as follows: 


20 DIM count (12) 
80 dice=RND (6) +RND (6) 
160 FOR K=2 TO 12 


If we wish to produce a result between 
2 and 12 with an EQUAL probability of 
each, then the function RND(11)+1 would 
do this by selecting a value between one 
and eleven and adding 1 to each result. 


Programs based on card games provide 
copious opportunities for using random 
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card being reselected. The following lines 
inserted into the program will do this, 


42 deck Spades” Er R and to prove the point line 140 is altered 
ie Jock Clubs cara ag, so os a full pack of = is dealt. 

13 Ace Clubs Card 3⁄4 DIM value$ (13) ,suit$ (4) , check$ (52) 
2 140 FOR I-1 TO 52 

"m Clean carats isis REPEAT HE 
Aa Å qae 

49 Four Spades > chec 


The method used is to have a further 
'check' array. Every time a new card is 
selected this array is checked to see if 
the same card has already appeared. If it 
has, another random number is generated and 
Card S2 the process repeated. When a new card is 
accepted, an asterisk is placed in the 
check array as a marker. You can see the 
numbers. To simulate the drawing, or effect of this as the display noticeably 
dealing, of a single playing card we slows down as the last few cards are 
assume that each of the 52 cards has an dealt. At this stage the proportion of 
equal chance and so use RND(52). The previously selected cards will be very 
numbers that can be generated are high. You may find it quite a challenge to 
allocated one to each card. The program see if you can find a faster method. 
RANDOM CARD will illustrate this. 


23 
36 
32 
L4 
48 F 
21 
29 
9 
34 
45 
33 


1@ REM RANDOM CARD 

20 DIM value$ (13) ,suitS (4) 

30 FOR I=1 TO 13 

40 READ values (I) 

5Ø NEXT I 

6Ø DATA Ace,King,Queen,Jack,Ten,Nine 
7Ø DATA Eight,Seven,Six,Five,Four 

8Ø DATA Three,Two 

9Ø FOR I=1 TO 4 

ØØ READ suit$ (I) 

1Ø NEXT I 

12Ø DATA Hearts,Clubs,Diamonds,Spades 
130: 

40 FOR I-1 TO 24 

150 num-RND (52) -1 

60 v=l+num MOD 13:s-1*num DIV 13 


70 PRINT num;" ";value$(v);" ";suitS$(s 
);TAB(30);" Card ";I The random function will speedily 
80 NEXT I generate numbers within a predetermined 
range so it is a useful source of data for 
The thirteen possible values and four some applications, where choosing and 
possible suits are stored in two arrays entering many items could be tedious. A 
initially. Each random number in the range simple example in graphics is the 
1 to 52 is then split into a value and a production of random triangles or other 


suit (line 160) and the appropriate words shapes as in the following program: 
Selected and displayed from the arrays. 
1Ø REM RANDOM TRIANGLES 


This program will deliver the name of a 20 MODE ! 
card selected at random twenty four times. 30 REPEAT 
However, you may notice that the same card 40 GCOL Ø,RND (3) 
may be chosen more than once. As this 50 PLOT85,RND (1279) , RND (1023) 
would not normally occur in real life, it 60 UNTIL FALSE 
is desirable to find a way to prevent any 70 END 
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The next program, HEADS OR TAILS, uses 
RND (2) to simulate the spinning of a coin. 
The output could just have been printed as 
HTTHH etc., but an effort has been 
made to improve the presentation. Line 110 
keeps a tally of the results which should 
be approximately equal if sufficient 
attempts are made. 


19 REM HEADS OR TAILS 

20 MODE 7:VDU23,1,0;0;0;0; 

30 CLS:heads=Ø:tails=Ø 

40 FOR y=Ø TO 1 

50 PRINTTAB (11 ,y+2)CHRS141;CHRS134; 
"Heads or Tails 2?" 

6Ø NEXT y 

70 PRINTTAB (9,22)CHRS134"Press any key 

to spin" 

80: 

90 REPEAT 

190 num=RND (2) 

110 IF num=) THEN heads=heads+1 
ELSE tails-tails*l 

120: 

130 PRINTTAB (18,12)SPC5 

140 FOR y-6 TO 19 :PRINTTAB (20, y) ; 
CHR$124:NEXT 

150 FOR y=6 TO 10 :PRINTTAB (20, y) ; 
CHR$32:NEXT 

160 IF num=| THEN PRINTTAB (18,12); 

"HEADS" ELSE PRINTTAB (18,12) "TAILS" 


170: 

180 PRINTTAB (6,19) CHR$131; "Heads = "; 
heads;TAB(25,19)"Tails = ";tails 

190: 

200 G-GET 

210 UNTIL FALSE 

220 END 


SUMMARISING THE RND FUNCTION 


The RND function in BBC Basic has 
several different formats. The syntax of 
the function is usually: 

variable = RND (number) 

RND must be in upper case and no spaces 
are allowed. num=RND(x) is most useful, 


providing random whole numbers in the 
range | to X inclusive, whilst 
num=RND (x)+y produces a similar range of 


numbers between l+y and xty. For example, 
to generate random whole numbers in the 
range 100 to 199 use num=RND(1ØØ)+99. 


RND (1) generates random numbers between 


Ø and 0.999999, Incidentally, this form 
was the only version of RND in some 
earlier versions of Basic. 

RND (0) repeats the last number 


delivered by RND(1) 
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which may be useful 


when debugging a program with data 


provided by RND(1). 


RND, without argument, generates whole 
numbers in the range -2147483648 to 
*2147483647. This is an enormous range and 
will usually require some form of 
adjustment to make it useful. 


the value of -x and 
resets the generator to a number based on 
x. This allows the same set of random 
numbers to be initialised and repeated 
every time a program is run. This 
repeatability can be very useful when 
debugging programs using the RND function. 
Once the program is working, the RND(-x) 
Statement can be deleted. 


RND(-x) returns 


At the beginning of the article we 
mentioned the word 'seed', and the fact 
that random numbers are generated from a 
Starting number called a seed. Now this 
can sometimes cause a problem as every 
time the Beeb is switched on the random 
number generator is referred to the same 
seed. If a program using random numbers is 
run immediately on start up, the generator 
will repeat exactly the same series of 
numbers as on each previous occasion. 


For some purposes it might 
that a long series of random numbers had 
been used previously. Fortunately, the 
Beeb has an internal clocking device which 
counts the hundredths of a second which 
pass from the comouter being switched on. 
The number is held in a variable called 
TIME, and may be used as follows: 


not matter 


18 num=RND (-TIME) 


Since it is almost impossible 
running a program at precisely the same 
moment since switch-on every time, this 
effectively initialises random number 
generation with a random number (provided 
your program has not first reset TIME). 
Such a line should be included before the 
normal generation of random numbers. 


to start 


Random numbers are easy to use and can 


form the basis of many interesting 
programs, from implementations of card 
games (simple and complex) up to more 
serious applications such as aircraft 
simulators where random numbers can add 
that extra touch of realism and 
unpredictability. Why not give random 


numbers a chance in your own programs? sa 


BEEBUG MAY 1986 


ADVENTURE GAMES ADVENTURE GAMES 


Village of Lost Souls from Magus, 4, Toronto 
Close, Durrington, Worthing, West Sussex. 
Price £9.95 on cassette. 


I have spent the last few evenings 
tramping through a fourteenth century 
village. This once happy place, is now 
deserted with only dead bodies and a pack 
of thieving dogs to bear witness to the 
devil worshipping rites which have brought 
disaster to the inhabitants. From the 
crypt beneath the church to the top of the 
village windmill, over 140 objects and 
clues have been strewn to confound any 
seeker of the truth. 


This large text game has a bewildering 
200 locations which form a most confusing 
mapping exercise. To add to your problems 
a black crow periodically appears to 
snatch objects from your hands and fly off 
to its secret hiding place. It's an 
unusually strong bird as it managed to fly 
off with my plough! (Reminds me of another 
very large bird I met in a bar in 
Portsmouth - but that's another story). 


Each location contains the offputting 
phrase 'Some exits lead ...' forcing you 
to try exits in every direction from each 
location in case there is a hidden route. 
This problem is compounded with the need 
to EXAMINE everything. Additional objects 
are quite often not revealed unless the 
location is completely searched. Taken 
together these problems serve to make the 
game quite a test of perseverance. 
However, some of the problems have 
multiple solutions so all is not lost 
Should you blunder past the first. 


The game has a large vocabulary, but 
it has many glaring omissions. It is 
annoying to be told in detail about a room 
which is full of specific items (e.g. 
barrels, bell-ropes, planks etc.) to find 
the game then does not recognise these 
objects should you attempt to manipulate 
or examine them. Having found a saw which 
the game assured me was great for cutting 
wood, and then found a room full of wood, 
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I was bemused to find the game would not 
allow me to cut the wood with the saw! 


However, otherwise the game is a 
quality product and full of detail which 
will require an adventurer, with a large 
dose of determination, to crack it. 


Adventure Description Language from 
Sigma Press, 5, Alton Rd, Wilmslow, 
Cheshire SK9 5DY. Book price £8.95. 


Writing adventures is great fun, but 
hard work. Perhaps what you need is a 
language which is specifically designed to 
help create your own adventureland. There 
are many different orogramming languages 
to be found in the world of professional 
computing all of which are designed to be 
particularly appropriate to a specific 
field. FORTRAN is favoured by 
mathematicians, whereas COBOL is the 
preferred language of data processing. For 
those would-be wizards amongst you who 
also have an interest in understanding how 
and why a new language is created this 
book will be of special interest. 


The ADL language aims to create a very 
simple set of instructions which can be 


used to write quite complex games. Like 
Basic, your program will need an 
interpreter to execute your commands and 


control the game. The program listing of 
the Interpreter is given in the book for 
you to type in and store on disc. There 
are also listings for a Screen Editor and 
Text Compressor to help you write and 
'squeeze' the many lines of text you will 
need to describe the locations and objects 
in your fantasy world. These programs are 
available on disc. 


A language specifically designed for 
adventure writing is already used by some 
of the larger software houses (Infocom and 
Level 9). To help explain the use of ADL, 
two games are fully listed and explained 
showing all the steps in the development. 
To use the final system you must have a 
disc drive to hold the interpreter while 
the game is played. If you want to skip 
the theory behind the working of the 
Interpreter and concentrate on writing 
games you will find it moderately easy to 
use. However, the book's main appeal will 
be to students of computer science and 
those of you who have a slightly more 
serious interest in computing. 

"el 
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Much Ado about Print 


When running your second 
example of the EVAL funct- 
ion (BEEBUG Vol.4 No.8) the 
numbers printed out in a 
Single column and shot off 
the top of the screen. So I 
added ,; at the end of line 
230 to get results printed 
to the default field bound- 
aries, 4 columns across the 
Screen. In fact, 26 numbers 
print neatly and then sud- 
denly field boundaries 
change and the next 25 are 
offset (by 6 character 
positions I think). Every 
25 this occurs again. Is 
this a quirk of Basic, I 
wonder, or something to do 
with my system? 

Dennis Kemp 


In editing programs for the 
magazine this is something 
we have seen on several 
occasions. The default 
field widths are 19 charac- 
ters wide, so taking 25 
numbers, plus the offset of 
6 Mr Kemp mentions, gives a 
total of 256. As most Beeb 
owners will recognise, this 
isa significant number in 
many ways in computing. In 


this instance it would 
appear that output is 
treated as a continuous 
string, and Basic limits 


this to 256 characters. The 
only solution seems to be 
to force a Return before 
that total is reached. For 
example, execute PRINT 
after every 25 numbers. 


Improving the Editor 

We have modified the 
Basic Editor published in 
BEEBUG Vol.4 No.7 so that 
there is no need to SPOOL 


and EXEC to add on the 
procedure PROCED. All that 
is needed in the program 
(or in a menu program) is: 


10 *FX18 

20 *KEY Ø OSCLI ("LOAD ED 
ITA "+STRS~ (TOP-2) ) |MEND |M 
O. [MM 0.7 |MPROCED |M 


The program to be edited 
is run once. Pressing fØ 
will append PROCED and the 
editor can be used as in- 
tended (except that Break 
is no longer used to enter 
edit mode). On pressing 
Escape, PROCED is deleted 
and the program can be run 
as usual, the only penalty 


being lines 18 and 20 
above. However, even this 
is unnecessary if a menu 


program can execute them 
instead (for example the 
Extended Disc Catalogue in 
BEEBUG Vol.4 No.5). The 
following lines in the 
editor also need changing 
or adding, and the revised 
version saved as EDIT4: 


32ØØ5*KEYØ 

32ØØ6*KEYT 

32Ø2Ø?8&8F=MD: *KEY10O. |MD 
EL. 32000 , 32460 |M 

32225*FX15,1 

32375CLS 

32376*KEY Ø OSCLI ("LOAD 
ED IT4 "+STRS~ (TOP-2) ) |MEN 
D|M O. |MM 0.7 |MPROCED |M 

32377*KEYlDEL. 32000 , 324 
6Ø |M *KEY! |M 


Richard & Michael Taylor 


Getting a Better View 

Perhaps you could tell 
me why View 2.1 'loses' the 
printer highlight settings 
on subsequent SHEETS as in 
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this letter. Also, are 
BEEBUG, or to your 
knowledge Acornsoft, going 
to provide an upgrade from 
View 2.1 to View 3.0? 

David T. Crofts 


It is a weakness of View 
2.1 that it does not fully 
carry highlight information 
across sheet boundaries. 
Acorn say that this has 
been cured in View 3.0 (see 
our recent series on View 
for more information - 
BEEBUG Vol.4 Nos.9 & 19). 
Both View 1.4 and View 2.1 
can be upgraded to View 3.0 
by sending the old chip 
together with a cheque for 
£23 to Valarie Raworth, 
Acornsoft, Cambridge Tech- 
nopark, 645 Newmarket Road, 
Cambridge CB5 8PD. 


In return you will receive 
View 3.0, a Function Key 
Card and a Reference Card. 
The new View 3.0 manual 
will cost a further £11.50. 
No new Printer Driver 
Generator is needed. This 


upgrade is only available 
from Acornsoft, NOT from 
BEEBUG. 
More than a Trace 

The Improved Trace 
facility published in 
BEEBUG Vol.3 No.7 is 
disabled on a soft Break. 
Tape users, for whom 


re-loading the program is a 
nuisance, can re-enable the 
facility by entering: 


?8&DØØ=&AD <Return> 
CALL &DØØ «Return» 


D.A.Stevens 


el 
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ARIES TURN-ON (OR OFF) 


The following ! BOOT 
file will turn on or off 
the Aries B-20 board before 


loading in a program 
('MENU' in this case). 
Change XON to XOFF as 
needed. 


*K.1Ø CHAIN "MENU" 
*K.Ø *XON |MCALL&D9CD |M 
*FX15,0 
*FX138,0,128 
David Davies 


SIDEWAYS RECOVERY 


sideways ROM 
boards (such as ATPL's) 
have the facility for 
sideways RAM to occupy the 
highest priority socket. If 
partially completed or 
un-debugged ROM software is 
occupying this position 
when Break is pressed, the 
OS may enter the software 
via its language entry and 
the machine hang. No amount 
of pressing of Break or 
Ctrl-Break will cure this 
as the software is in the 
highest priority socket. 
The solution is to run the 
following program before 
using the sideways RAM. 
This places the machine 
code equivalent of *BASIC 
onto disc as a !BOOT file 
so that Shift-Break will 
restore your Beeb to Basic. 

18 P$-82000:[ LDA #187: 
LDX $0:LDY #255 JSR &FFF4:L 
DA #142:JSR &FFF4:] 

20 *SAVE !BOOT 2000 201 
Ø 2000 

30 *OPT 4,2 
Philip Endecott 


MERGING VIEWSTORE FILES 


Many 


Viewstore files cannot 
be simply merged together 
to form a single file. The 
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solution to this problem is 
to READ the separate files 
into VIEW and then SAVE the 
combined file again. This 
can be IMPORTed back into 
Viewstore format noting 
that 13 is the record 
separator and 9 the field 
separator. 

E.A. Spencer 


PASSING PARAMETERS TO 
WORDWISE PLUS 


Although the manual 
describes how variables may 
be passed to machine code 
routines from Wordwise Plus 
no mention is given of how 
to pass values back again. 
The answer is to poke the 
values directly into memory 
where Wordwise Plus stores 
them. This is at the same 
location as Basic, i.e. A$ 
to Z% from &404 onwards, 
each variable using four 
bytes. 

Brian Storey 


PRINTER CHECK 


When a program requires 
the use of a printer, the 
following line at the 
beginning of the program 
will check that the printer 
(serial or parallel) is 
Switched on, on line, and 
ready to receive data, and 
SO prevent the machine 
hanging up at the crucial 
moment. 


10 VDU2:PRINT':VDU3:A-I 
NKEY (19) : IF ADVAL (-4) «63 PR 
INT "PRINTER NOT ON LINE" 

Stephen Wilcock 


INITIALIZING A DATA AREA 


To initialize a data 
area in a machine code 
program to contain (say) 


zero the following function 
may be used: 
1660 DEFFNdata (N$,0pt) 
1018 FOR R$-1 TO N% 
1020 ?P$-0 
1030 P%=P%+1 
1040 NEXT 
1050 =opt 
The function can be 
called directly from your 
program in the position 
required with parameter N% 
being the length of the 
data area and opt the 
current value for OPT using 
a statement such as: 
OPT FNdata (&100 pass) 
Stephen Mellor 


SINGLE KEY UNDERLINE 


The following function 
key definition enables 
single words to be easily 
underlined in Wordwise 
Plus. 

*KEYO |:|N[ 1108 | 1" | 1] | 
1, | HUE! 

Press fÜ directly after 
the word to be underlined. 
This automatically inserts 
the necessary embedded 
codes before and after the 
word. 

W.A. Simcock 


DATE CHECKING 


The following (fairly) 
simple function will check 
the validity of a date 
where D,M,Y hold the day, 
month and year. A zero is 
returned for an invalid 
date. The function will not 
cope with the nori-leap year 
in 2188 but hopefully a 


better routine will be 
Published in BEEBUG nearer 
the time. 


DEFFNvalidate (D,M,Y) : -D*M* 
(M<13) * (D<31+ ( (M+ (M>7) ) AND 
1) +(M=2) * (2+(( AND 3)=Ø))) 


David Abbot = 
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Across the Tube 
(Part 2) 


Ian Trackman concludes his detailed 
description of the Tube and its inner 
workings with a particular look at the 
use of interrupts. 


The Tube software communicates across 
the Tube using an eight byte block of 
memory on each side of the Tube. These 
bytes are arranged as four pairs of 8-bit 
registers. Any value placed in a register 
on one side of the Tube is automatically 
transferred to the corresponding register 
on the other side, and thereby made 
accessible to the other processor. 


Last month we looked at several 
official and semi-official methods of 
transferring data from the control of the 
Second Processor to that of the Host 
Processor. Now I shall look at 
communication initiated by the Host 
Processor in the opposite direction. 
However, as the Tube is essentially 
symmetrical and communication across it is 
a two-way process, it should be noted that 
communication from Second Processor to 
Host Processor is also possible by methods 
similar to those described here. 


THE TUBE REGISTERS 

Each pair of registers comprises a 
status register and a data transfer 
register, though only the top two bits of 
the status registers are used. The program 
in the Host processor waits for bit 6 of 
the status register to be set (using a 
loop conditional on the BVC command). Once 
bit 6 is set, the Host Processor places 
the data to be transferred in the data 
register, and sets bit 7 of the status 
register to signify that it has done so 
and that the data register is ready to be 
read by the Second Processor. 


Meanwhile, the Second Processor 
performs a similar process. It sets bit 6 
of the status register to signify that it 
is ready to receive some data, and waits 
for bit 7 to be set (with a BPL loop) 
before attempting to read that data. The 
whole process is very similar to the 
handshaking procedure used to communicate 
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with a printer across the printer port. 


The four pairs of registers have 
specific purposes allotted to them: 


1. OSWRCH calls and Host 
events. 

2. OSBYTE, OSWORD, OSFILE, OSBPUT, etc. 

3. Data transfer between the Host and 
Second Processors. 

4. Control of data transfer. 


Processor 


One complication is that the four 
pairs of registers do not have the same 
addresses on both sides of the Tube. In 
the Host Processor the eight bytes are 
located as follows: 


OSWRCH status register &FEEØ 
OSWRCH data register &FEEI 
OSBYTE, etc. status register &FEE2 
OSBYTE, etc. data register &FEE3 
Data transfer status register &FEE4 
Data transfer data register &FEE5 
Control status register &FEE6 
Control data register &FEE7 


In the Second 
corresponding bytes are 
&FEF8 and &FEFF. 


Processor the 
located between 


The first two pairs of registers are 
reserved for OS use of the Tube. We have 
already looked at using these for data 
transfers from Second Processor to Host 
Processor. Instead, I shall now 
concentrate on the use of the third pair 
of registers for transferring data from 
Host to Second Processor. 


USING THE REGISTERS 


It is possible to use the registers 
directly, but only if you are certain that 
no: other parts of the system are using the 
Tube. However, it is the function of the 
Tube software to use these registers 
correctly, so it is only sensible to make 
use of that software unless you have an 
application that demands the maximum speed 
data transfer across the Tube. 


Incidentally, accessing the two data 
transfer registers generates an interrupt 
in the Second Processor. This is passed to 
the Tube software in the Second Processor 
which handles the data transfer before 
returning control to the main program in 
the Second Processor. 


The Tube software resides between &400 
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and &6FF in the Host Processor. It has one 
main entry point at &406 to handle data 
transfers, and that is our main interest. 


CLAIMING AND RELEASING THE TUBE 

As a first step, you might want your 
software to ensure that the Tube is 
present and active. An OSBYTE &EA call 
with X-0 and Y=&FF will return with X-&FF 
if the Tube is operative and with X=Ø if 
it is not. 


Your software should now 'claim' the 
Tube to ensure that no other caller has 
control over it (e.g. a filing system call 
in operation, or an interrupt requiring 
Tube service). To claim the Tube, call 
&406 with the accumulator set to &CØ+ID. 
The identification number (ID) is a 6-bit 
value (i.e. in the range Ø to &3F). The OS 
and standard filing systems use numbers 
from zero as follows: 


- Cassette filing system 

- Disc filing system 

- Econet low level primitives 
Econet filing system 

- ADFS 

- Teletext 


Ul £RUORPK. —tUu 
i} 


I suggest that you use an ID from the 
other end of the range, e.g. &3F. A call 
to &4Ø6 returns with the carry set if the 
claim has been accepted. So, to claim the 
Tube with an ID of &3F, the code would be: 

.claim 

LDA 4 (&CØ+&3F) 

JSR &406 

BCC claim 
After use, the Tube 
with another call to &406 
accumulator set to &8@+ID. 

.release 

LDA #(&80+&3F) 

JSR &406 
When claiming and releasing the Tube the 
values of the X and Y registers are 
immaterial. 


should be released 
and with the 


READING AND WRITING DATA 

Besides ensuring that there is no 
conflict between Tube users, the Tube 
software also offers a number of 
ready-made data transfer options. These 
are accessed by specifying a number in the 
accumulator when calling the Tube software 
at &406, 


Ø - read one byte 
1 - write one byte 
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2 - read two bytes 

3 - write two bytes 

4 - JMP to Second Processor address 
in response to OSCLI or *FX142 

5 - not used 

6 - read &100 bytes 

7 - write &100 bytes 

When making such calls to the Tube 


software, the X and Y registers are used 
to point to a four-byte indirection block 
in the Host Processor which in turn 
contains the 32 bit address in the Second 
Processor where data is to be written to 
or read from. The top 16 bits of this 
address should be set to Ø for the 
Standard 6502 Second Processor. 


The three read and write options (for 
1, 2, and &100 bytes) operate in similar 
ways. For speed considerations, it is 
sensible to use the option most suited to 
the number of bytes to be transferred. 


You have to allow time for the Tube 
software to handle the transfers. There 
must be a pause between each successive 
read/write operation, dependent on the 


option used: 
1 byte 24 micro-seconds 
2 byte 13 micro-seconds per byte 
&188 bytes 10 micro-seconds per byte 


An additional pause must also be 
included in the case of transfers from the 
Second Processor to the Host Processor 
immediately after calling the Tube 
Software at &406, These additional pauses 
should be: 


1 byte 24 micro-seconds total 
2 byte 26 micro-seconds total 
&100 bytes 19 micro-seconds total 


There are a number of ways of 
generating these pauses. One method is to 
loop with a decrementing counter; another 
to use several JSR-RTS sequences. The 
latter method has the advantage of leaving 
all the registers and flags unaffected. 
The JSR-RTS sequence takes 12 clock 
cycles, so that doing this once at 2MHz 
will generate a 6 micro-second delay. Here 
is a sample routine to read &1ØØ bytes 
from the Second Processor. It assumes that 
the 32 bit address in the Second Processor 
has been set up at 'block' and that 
'destination' is a two byte indirection 
location in zero page of the Host 
Processor pointing to the start of memory 
where the data is to be stored. 
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-claim LDA #(&C@+ID) 
JSR &406 \claim the tube 
BCC claim \again if unsuccessful 
LDX #block MOD &1ØØ Npoint to the 
LDY #block DIV &1ØØ Naddress block 


Nset up my ID 


LDA #6 N&1 ØØ-byte transfer 
JSR &406 

JSR ret N6 us 
JSR ret NI2 us 
JSR ret \18 us 
LDY 40 \initialize index (now 19 us) 


.loop LDA &FEE5 
STA (destination),Y 


\read byte (2 us) 
Nstore it (3 us) 


NOP Npause 1 us 
NOP \pause | us 
NOP \pause 1 us 
INY \next byte (1 us) 


BNE loop Wl.5 us - 10.5 us now passed 
LDA $(&80-*ID) 


JSR &406 \release Tube 
.ret RTS 
Note: the letters 'us' above represent 
micro-second. 


JUMPING TO THE SECOND PROCESSOR 

By calling the Tube software with the 
accumulator set to 4, the Second Processor 
will jump to the address in the Second 
Processor specified in the address block 
in the Host Processor pointed to by the X 


and Y registers when making the call. 
However, unlike the data transfer calls, 
where the user is responsible for 
releasing the Tube, this call 
automatically releases the Tube after 
execution. 

Typically, this call is used by the 


*RUN request. 
not return control on the 
side but goes back to 
Host Processor Tube 


filing system to execute a 
The call does 
Host processor 
running the normal 
software. 


HANDLING INTERRUPTS ACROSS THE TUBE 

Second Processor interrupts are for 
internal data transfer and event- 
signalling purposes only. We shall now see 
how to handle interrupts which would 
normally be accessible to the programmer 
in the Host Processor. 


The first step to handling Host 
Processor interrupts is to set up an 
interrupt-handling routine in the normal 
way, installing the code in the Host 
Processor as described last month. Since 
this is likely to be a small program 


ad 


dedicated to handling the interrupt, the 
‘clean' approach is to split the process 
in two. The interrupt-handler itself sets, 


say, bit 7 of a flag byte and immediately 
hands back control to the OS. The 
remainder of the program, after 


initialising the flag bit, loops around 
waiting for the flag bit to be set. Don't 
forget to include an over-riding exit 
condition in the loop - such as the Escape 
key being pressed - to prevent it running 
on when the foreground program has 
stopped. 


When an interrupt is detected, the 
interrupt-handler must notify the Second 
Processor that the interrupt has occurred. 
Two possible methods suggest themselves. 
Firstly, a byte could be written to a 
specified address in the Second Processor. 
This byte could be regularly polled by the 
foreground control program in the Second 
Processor. When its value changes, the 
Second Processor program could divert to a 
Separate routine. 


The second method is to set up an 
event-handling routine in the Second 
Processor and then generate an event with 
OSEVEN (&FFBF) when the interrupt is 
detected. The event should preferably be a 
'user event' with the Y register set to 9 
before making the call. 


If you use the first method, your 
program can then use other OS calls to 
Obtain more information, if needed, about 
the status of relevant parts of the 
System. This information could also be 
gathered by the interrupt-handler in the 
Host Processor, and then be transferred 
across to storage locations in the Second 
Processor. When the second method is used, 
such OS calls would have to be issued from 
within the event handling routine. This is 
not to be recommended. 


Also not recommended, but possibly 
even faster, a third method of 
interrupting the Second Processor would be 
to use the fact that the Tube transfer 
itself generates an interrupt in the 
Second Processor. This would have to be 
re-vectored into your own routine, taking 
extreme care to handle properly any 
subsequent interrupt which might occur 
before your own interrupt handling had 
finished. It would also, of course, be 
necessary to cater for any 'official' Tube 


traffic. —» 49 


BEEBUG MAY 1986 


MOo+IIH=C 


SCORE : SGSSSG 


Ue * 
Ebony Castle— — 
Jonathan Temple is the author of 
several highly professional 


games 
published in recent issues of BEEBUG. 
This latest challenge could be his best 


yet. 

You, a simple serf, have been THE ERST DUNGEONS 
elected leader of a secret band 
plotting to overthrow the evil 


Necromancer. The Necromancer, hearing 
of your plans, has imprisoned you in 
the dungeons of the infamous Ebony 
Castle, from which he is sure you will 
not be able to escape... 


However, you have managed to get 
out of the dungeons and are now hiding 
in the main kitchens of the ruined 
castle. You must now try and escape to 
the countryside to re-join your 
comrades so that the Necromancer can 
finally be banished from the realm. 


The castle is inhabited by huge 
spiders and, from the very first second 
as a spider comes racing towards you, 
you can tell your task is not going to 


be easy. On occasions you'll need 
split-second timing to beat them. 
There are difficult jumps to 


contend with as well, and it's so cold 
in the castle that you'll also have to 
be wary of treacherous icy platforms. 


To make your task even more 
difficult, several areas of the castle 
and the countryside are shut off by 
coloured doors. To open these you'll 
have to obtain the corresponding 
coloured keys which have been cunningly 
Scattered throughout the castle. 


The program features the famous 
‘interlocking screens' of games like 
Jet Set Willy, where you can walk 
between rooms at will - as long as 


you're carrying the correct keys! 


Because the game is already 
challenging there is no set time limit 
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as such, but if you do actually manage 


to reach the countryside the bonus 
awarded depends on how long you took as 
well as how many lives you have 
remaining. 


As with many games, you start with 
three lives. The keys you'll need to 
use are the usual 'Z', 'X', '*' and '?' 


for left, right, up and down movement 
respectively, whilst pressing  'Return' 
will let you jump. In addition the game 
can be paused by pressing 'P', and 
continued with 'C'. 

When the game is paused, 'S' and 
-Q' will turn the sound on and off 
respectively, whilst 'R' will allow you 
'to re-start - useful if you become 


trapped, although you do lose a life. 


THE PROGRAM 


The program should be fairly 
straightforward to enter, although the 
data for the five rooms (lines 


2700-2890) should be entered carefully, 
along with the data for the keys, doors 
and castle layout (lines 2280-2360). If 
not entered correctly, some of these 
lines could quite easily make the whole 
game impossible! Also, Since the 
program runs in mode 2, disc users (or 
anyone else with PAGE over &EØØ) will 
need to include these few lines at the 
start of the program to move it down. 


1 IF PA.<&EØ| THEN 10 

2 *K.Ø P.'"Moving down..."|L|M*T. |M 
F.A$-0TO (TOP-PA.)S.4:A%!&EQO=A%!PA, 
:N. |MPA.=&EØØ |MO. |MDEL. 1,4 |MRUN |M 

3 *FX 138,0,128 

4 END 
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PROCEDURES USED 


init Initializes keys, doors, and 
the castle layout 

chars Defines characters 

envs Defines four sound envelopes 


title Displays title page 

setvars Sets variables, changes 
flashing colours to white and 
resets keys 

screen Draws current screen and sets 
certain variables 


read Reads in data for PROCscreen 

man Checks for keys pressed, moves 
man 

jump Makes man jump 

new Looks after man moving between 
screens 

key Looks after collecting keys 

doors Prints doors if locked 


pause Looks after pause feature 

spider Moves the lift and checks for 
collision 

score Displays player's score and 
keys collected 

killed Looks after death of your man 
and resets variables 


end Prints "Game Over" message, 
pauses 

print Prints text in 3-D 

outside Draws countryside and plays 
tune 


feature Draws cloud or tree foliage 


For those interested in writing 
their own platform games, or who wish 
to design their own screens for the 
game (or make some of the screens 
easier!) the data for the five rooms is 
held in a heavily compacted format in 
lines 2700-2890. 


First comes a string, the name of 
the room, which is printed beneath the 
platforms during play. The first number 
given is the number of platforms, 
whilst the second, third and fourth 
affect the colours to be used in the 
screen - the colour of the bricks, 
mortar and ladders respectively. 


The next six numbers relate to the 
spider, giving the x-position, 
y-position, limit x-position, limit 
y-position, horizontal direction and 
vertical direction of the spider 
respectively. 


These are followed by the data for 
the platforms themselves, in the form 
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of a long string. Each platform is held 
in a string of four ASCII characters, 
with the first two letters representing 
the x-l and yt2 tab positions of the 
platform (8-0, A=1, B-2 etc.). So AG 
would mean at 9,2% AA would mean at 
0,3; BB would mean at 1,4; and so on. 


Following the two letters is a 
hexadecimal number. This gives the 
length, direction and type of each 
platform, by separating the information 
into discrete bits. Bits 0-4 hold the 
length (0-31), bit 5 holds the 
direction (Ø=horizontal, 1=vertical) 
and bits 6 and 7 hold the type where:- 


8 is a brick platform 
l is an ice platform 
2 is a ladder 


This may all seem very complicated, 
but it does mean that varied and 
complex screens can be stored in only a 
few lines of data, and this cuts down 
drastically on typing in. 


18 REM PROGRAM EBONY CASTLE 

20 REM VERSION B0.1 

30 REM AUTHOR J. Temple 

40 REM BEEBUG MAY 1986 

50 REM PROGRAM SUBJECT TO COPYRIGHT 


100 ON ERROR GOTO 3720 
118 MODE 2 

120 PROCtitle:PROCinit 
130 PROCchars: PROCenvs 
140 REPEAT: PROCsetvars 
150 REPEAT: PROCscreen (P$) 
160 REPEAT: PROCman 

170 PROCspider: UNTIL E% 
180 IF E$-1 PROCkilled 
198 UNTIL Z$-0 OR E$-2 
200 IF E$-2 PROCoutside 
210 PROCend:UNTIL FALSE 
220 END 


1000 DEFPROCman 

1010 A$-X$:B$-Y$:C$-V$:D$-W$ 

1020 IFINKEY-56 PROCpause 

1030 G%=POINT (X%+8,Y%-68) : H$-POINT (X24 
8,Y$-68) 

1040 IFINKEY-74 IFJ$*F$-0 IFG$4H250 J$- 
6:U$- (INKEY-98)- (INKEY-67) :SOUND 18,2,10 
5 

, 

1050 IFJ$ PROCjump:ENDPROC 

1060 IFG$4H$-0 Y$-Y$-32:W$-W$ EOR l:F$- 
F$*1:G0TOl130 

19070 IFF% SOUND 17,1,1,1:SOUND 18,0,0,0 
:IFF%>3 E%=1 ELSE IFF% F$-FALSE 
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THE MAIN KITCHENS 


1080 IFG$-8 OR H$-8 IFINKEY-98+INKEY-67 
=Ø X$-X$* (V$2233) *32- (V%=232) *32:W$-W$ E 
OR] :GOTO1130 
990 IFINKEY-98 IFPOINT (X%-8,Y%)<1 X%=X 
$-32:Y$-Y£&- (POINT (X3+24 ,Y%-32) >Ø) *32:W%= 
W% EOR 1:SOUND 18,-19,50,1:IFV%<>233 V$- 
233:W3=236 
106 IFINKEY-67 IFPOINT (X%+64,Y%)<1 X$- 
$432:Y$-Y$- (POINT (X$436,Y$-40) >Ø) *32:W$ 
=W% EOR 1:SOUND 18,-10,50,1:IFV$45232 V% 
=232:W%=234 
11Ø IFINKEY-73 IFPOINT (X%+8,Y%)=LC% Y% 
=Y%+32:V%=V% EOR 1:W$-W$ EOR 1:I1FC%<>238 
V$-238:W$-240 
120 IFINKEY-1Ø5 IFPOINT (X%+8 , Y%-68) =LC 
Y%=Y%-32:V3=V% EOR 1:W%=W% EOR 1:IFC3< 
238 V3=238:W%=240 
130 IFD%<>W% GCOL3,15:MOVE 13,5%: VDUC% 
10,8,D%:MOVE X$,Y$:VDUV$,10,8,W$ 
140 IFPOINT (X$,Y$-20) PROCkey 
150 IFX%>1216 OR X%<Ø OR Y%>928 OR Y%< 
188 PROCnew 

160 ENDPROC 
170 : 
180 DEFPROCjump 
1190 X$-X$*A$ (7$) *U$: YS=YS+BS (J$) 

200 J$-J$-1:GCOL 3,15:MOVE A%,B% 
210 VDUC$,10,8,D$:MOVE X$,Y$ 
1220 VDUV%,1Ø,8,W% 

1238 IFY%MOD32=28 IFPOINT (X%,Y%-68)+POI 
NT (X3+56 ,Y%-68) >@ J$-0 

240 IFPOINT(X$,Y$-20) IFP%<5 PROCkey 
250 IFUS=1 IFPOINT (X%+64,Y%-32)>Ø U$-0 
260 IFU%=-1 IFPOINT (X%-8,Y%-32)>Ø U$-0 
1270 IFJ$-0 IFPOINT (X3+8,Y%-68) <1 IFPOI 
NT (X%+48,Y%-68)<1| F$-1 

280 ENDPROC 

1290 : 

1300 DEFPROCnew 
1318 L$-- (X$51216)- (X$«0) *2- (Y$>928) *3- 
(Y$«188) *4 
1320 P$-R$(P$-1,L$-1):U$--U$ 
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1330 IFL%=1 X$-0 ELSE IFL%=2 X%=1216 
1340 IFL$-3 Y$-188 ELSE IFL%=4 Y%=924 
1350 IFP%<6 PROCscreen(P$) ELSE E%=2 
1360 ENDPROC 

370 : 

1380 DEFPROCkey 

390 IFX%<>K% (P3-1,1) ORY3<>K% (P3-1 , 2) 
ENDPROC 

400 SOUND 17,4,100,1:K$ (P%-1 ,3)=1 
1418 MOVE X%,Y%:GCOL3 ,K% (P$-1,0) : VDU242 
1420 PROCscore (5009) 

430 RESTORE:FOR L$-1 TO P$ 

440 READ M$:NEXT 

450 D$(M$-1,3)-0:1FM$-P$ PROCdoors 
1460 ENDPROC 


1480 DATA 3,1,4,2,5 


500 DEFPROCdoors 

510 GCOLØ,Ø 

1520 IFD$(P$-1,3) GCOLO,D$ (P$-1,0) 

530 MOVE D$ (P$-1,1) ,D$ (P$-1,2) 

540 VDU 227,190,8,228,10,8,229 

550 ENDPROC 

560 : 

1570 DEFPROCspider 

580 IFABS((R%+16)-Y%)<48 IFABS ((02432) 


-X$)«96 E$-1 


590 GCOL3,2:MOVE Q%,R%:VDU23Ø,23 

1600 Q3=0%+5X%:R%=R%+SY% 

610 MOVE Q$,R$:VDU230,231 

1620 IFSX% IFQ$-S!$ OR Q%=S3% SX$--sX? 
630 IFSY$ IFR$-S2$ OR R%=54% SY%=-SY% 
1640 IFABS ((R$416)-Y$)«48 IFABS ((Q$432) 


-X$)«96 E$-1 


1650 ENDPROC 

660 : 

1670 DEFPROCpause 

680 I-TIME:REPEAT N$-GET AND &DF 

690 IF N%=81 THEN *FX 210,1 

700 IF N$-83 THEN *FX 210,0 

1718 UNTIL N$-67 OR N$-82 

1720 TIME-I:IF N$-82 E$-1 

730 ENDPROC 

1740 : 

750 DEFPROCscore (N$) 

1760 S%=5%+N%:VDU4,17,7,31,6,Ø 

1770 PRINT LEFTS ("000000" , 6-LEN (STRS (S3 
)+STR$ (S3); " "; 

780 FOR L%=Ø TO4 

1790 VDU 17,K%(L%,Ø) :IFK%(L3,3) VDU242 
800 NEXT 

1810 VDU5 

820 ENDPROC 

1830 : 

1840 DEFPROCkilled 

1858 Z%=Z%-1:SOUND 0,1,100,2 

1860 FOR I=] TO 2000:NEXT 

1870 X%=192:Y%=316:V%=232:W%=234:P%=3 
1880 ENDPROC 
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1890 : 

1988 DEFPROCend 

1918 *FX 15,0 

1920 VDU4,28,4,15,15,11,12,26,5 

1930 PROCprint("GAME OVER",352,636,1,3) 
1940 PROCpr int ("<SPACE>",416,572,4,6) 
1950 REPEAT UNTIL GET=32 

1960 ENDPROC 

1970 : 

1980 DEFPROCprint (T$,X,Y,A,B) 

1998 GCOL Ø,A:MOVE X,Y:PRINT TS 

2000 GCOL 0,B:MOVE X-8,Y-4:PRINT TS 
2010 ENDPROC 


2030 DEFPROCsetvars 

2040 7%=3:5%=Ø:P%=3:TIME=Ø 

2050 X%=192:Y%=316:V%=232:W%=234 
2060 FOR L$-9 TO 15:VDU 19,L$,7;0; 
2070 NEXT 

2080 FOR L$-0 TO 4 

2090 K% (L$,3)-FALSE:D$ (L$,3) =1 
2100 NEXT 

2110 ENDPROC 


2130 DEFPROCinit 

2140 DIM W$ (2) ,A3 (6) ,B% (6) ,K% (4,3) ,D$ (4 
,3) R$ (4,3) 

2150 C$=CHR$17 

2160 WS (1) =CS+CHR$8+CS+CHRS1 284CHR$225 
2170 RESTORE2280 

2180 FOR L$-1 TO 6:READ A$(L$),B$(L$) 
2190 NEXT 

2200 FOR L$-0 TO 4:FOR M$-0 TO 2 

2210 READ K%(L%,M%) NEXT, 

2220 FOR L$-0 TO 4:FOR M%=Ø TO 2 

2230 READ D$ (L$,M$):NEXT, 

2240 FOR L$-0 TO 4:FOR M$-0 TO 3 

2250 READ R$ (L$,M$):NEXT, 

2260 ENDPROC 

2270 : 

2280 DATA 0,-32,32,-32,32,0,32,0,32,32, 
8,32 
2290 DATA 3,768,892,5,256,188 
2300 DATA 4,192,700,2,512,188 
2310 DATA 1,1152,924 

2320 DATA 5,0,220,2,1088,220 
2330 DATA 3,256,860,4,384,348 


2340 DATA 1,192,220 
2350 DATA 2,6,0,0,3,1,0,4,0,2,0,5 
2360 DATA 5,0,2,0,0,4,3,0 

2370 : 


2380 DEFPROCscreen (P$) 

2390 VDU4,12,19,1,1;0;19,5,5;0;19,8,6;0 
$5235 10, 32707 050517, 7 

2400 PRINTTAB (0,0) "SCORE: " 

2410 PROCscore (Ø) :VDU4,17,7 

2420 RESTORE 2700:IFP%>1 PROCread 

2430 READ T$,N$,A$,B$,LC$ 

2440 READ S1%,S2%,S3%,S4%,SX%,SY%,WS 
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2450 WS (0)-CS4CHRSA$4CS4CHRS (128+B%) +CH 
R$224 

2460 WS (2)=CS+CHRSLC%+CS+CHRS1 28+CHRS22 
6 


2470 PRINTTAB (Ø,3Ø) ; STRINGS (Z$-1 ,CHR$23 
2);TAB(3,30) T$; 

2480 FOR L%=1 TO N$*4-3 STEP 4 

2490 AS=MIDS (WS,L%,4) 

2500 N13=EVAL ("&"+MIDS (A$,3)) 

2510 N2%=N1% AND31:N33=N1% AND32 

2520 N4%=(N1% AND192)DIV64 

2538 D$="":IFN3% DS=CHRS (10) +CHRS (8) 

2540 PRINTTAB (ASC (AS) -65 , ASC (MIDS (AS, 2) 
)-62) STRINGS (N2$-1 ,WS (N42) +DS) +WS (N43) 

2550 NEXT 

2560 E$-0:F$-0:J$-0:VDU5:PROCdoors 

2570 IFK%(P%-1,3)=Ø MOVE K% (P%-1,1) ,K% ( 
P$-1,2):GCOL3,K$ (P$-1,0) : VDU242 

2580 GCOL3,15:MOVE X$,Y$:VDUV$,10,8,W$ 

2590 Q$-S1$:R$-S2$:GCOL3,2 

2600 MOVE Q%,R%:VDU23Ø,231 

2610 ENDPROC 

2620 : 

2630 DEFPROCread 

2640 FOR L$-1 TO P%-1 

2650 READ TS,N%,A%,B%,C% 

2660 READ S1%,S2%,S3%,S4%,SX%,SY% ,WS 

2670 NEXT 

2680 ENDPROC 

2690 : 

2700 DATA "THE ENTRANCE HALL" 

2718 DATA 29,2,4,5 

2720 DATA 1Ø88,196,192,196,-32,Ø 

2730 DATA AQ14AA36TA2ABDO3MD01PDO4FEO1H 
F29JG41LR01NI41BJ06PJO4RNO3ROOCTO2BPQO3S 
TØ1GUØ7BV 23RVO1PW41AZ14CCA7QCA7EIA6QMA4C 
NACLNA7 

2740 DATA " BANQUETING HALL" 

2750 DATA 31,5,4,3 

2760 DATA 320,316,1088,316,32,0 

2770 DATA AQl4AA2ATA35JDÜABEO3GEOJHO4P 
I104BJO3GK41AN2DBNOGKNOTNO41QPO3IRO3BSOAN 
SQ1ET22BV13GW23NW23BZ  3CDA6RCA6KGA 7CMA6R 
OA7JQAACUA6PYA2 

278Ø DATA "THE MAIN KITCHENS" 

279Ø DATA 31,1,3,6 

28ØØ DATA 832,322,128,322,-32,9 

281Ø DATA AG14AA36EA22TA3ACFÜGLFÜSEG23P 
G33BJ12CN02FN42INO2LNOS8BRO1ERA1HRATKRÜOSB 
U@1BV1 2AZ93GZ03MZ07BEA5GEA5MFA 9REB6BMASL 
QASHUA6CYA2NYA2 

282Ø DATA "THE WEST DUNGEONS" 

2830 DATA 20,6,4,3 

2840 DATA 64,188,1024,188,32,0 

2850 DATA A@3BG@33T@2ABDGANDG@6BI 2LJ28B 
M1 350Ø2BRØBRT22GVØ3LV42PVØ5BWØ3FWØ2BZ13C 
@B7J@B2P@A4 

2860 DATA "THE EAST DUNGEONS" 

2870 DATA 24,4,2,6 
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2880 DATA 640,812,640,700,0,-16 

2890 DATA AQ2APQ23TQ3BBCÜ3GCODBI  3AMO4G 
NA1LN081041AQ04DR24LR08AV0 5SHV0BAZ | 4CGA3H 
GA3NGA9RQA3CHA9QMA5MOA5JUA5 

2900 : 

2910 DEFPROCoutside 

2920 PROCscore(Z%*2ØØØØ) : IFTIME<3ØØØØ P 
ROCscore ( (3ØØØØ-TIME)*1Ø) 

2930 VDU4,28,0,26,19,2,17,132,12,26 
2940 VDU28,0,28,19,26,17,130,12,26 

2950 VDU17,7,17,128 

2960 PRINTTAB (3,30) "THE COUNTRYSIDE !"; 
2970 FOR N$-150 TO 450 STEP 150 

2980 VDU24,N$-20;125;N$*20; 350; 18,0,129 
,16,26 

2990 PROCfeature(N%,4ØØ, 9Ø+RND (20) ,90+R 
ND (40) ,13*RND (3) ,2,3) 

3000 NEXT 

3018 PROCfeature(700,8090,150,50,9,7,4) 
3020 PROCfeature (839,750,180,50,12,7,4) 
3030 VDU5,18,3,15:X$71216:Y$-252 

3040 MOVE X$,Y$:VDU V$,10,8,W$ 

3050 FOR X$-1216 TO 592 STEP -16 

3060 MOVE X$,Y$:VDU V%,19,8,W% 

3070 W%=W% EOR 1 

3080 MOVE X$-16,Y$:VDU V$,10,8,W$ 

3090 FOR I=] TO 150:NEXT 

3100 SOUND 18,-10,50,1 

3110 NEXT:VDU4 

3120 PRINTTAB (3,30) "CONGRATULATIONS !"; 
3130 RESTORE 3210:N%=81:*FX 15,0 

3140 FOR L$-1 TO 10:READ A%,D%:N%=N%+A% 
3150 SOUND 1,-1Ø,N%,D% 

3160 SOUND 2,-5,N%+48,D%:NEXT 

3170 REPEAT UNTIL ADVAL (-7)=15 

3180 FOR I=] TO 2ØØØ:NEXT 

3198 ENDPROC 

3200 : 

3210 DATA 0,4,8,4,8,4,4,4,8,8,-12,8,4,8 
,712,8,8,8,-16,8 

3220 : 

3230 DEFPROCfeature (X%,Y%,SX%,SY%,L3,Cl 
%,C2%) 

3240 VDU29,X$;Y$; :MOVEØ,Ø:523=Ø 

3250 MOVE SX3+SX3/L3,0:S13=SX3+SX3/1B 
3260 FOR I=Ø TO 6.3 STEP .1 

3270 X%=SX%*COS (I) +5X%/L%3*COS (I *L%) 
3280 YS=SYS*SIN (I )+SY%/L3*SIN (I*L%) 
329Ø GCOL Ø,C1%:MOVE32,12:PLOT85,X%,Y% 
3300 MOVE S1%,S52%:GCOLØ,C2%:DRAW X$,Y$ 
331Ø S1$-X$:92$-Y$:NEXT:VDU29,0; 0; 

3320 ENDPROC 


3340 DEFPROCtitle 
3350 VDU5 
3360 PROCprint("EBONY CASTLE",256,896,1 


3370 PROCprint("Can YOU meet",224,736,4 
3380 PROCprint ("the Challenge?",16Ø,672 


339Ø PROCprint ("<SPACE>",384,352,4,5) 
34ØØ REPEAT UNTIL GET=32 

341Ø ENDPROC 

3420 : 

3430 DEFPROCchars 

3440 VDU23,224,223,223,223,0,-5,-5,-5,0 
3450 VDU23,225,-1,-1,127,110,98,32,32,0 
3460 VDU23,226,66,66,66,66,126,66,66,66 
3470 VDU23,227,0,-1,-1,153,153,153,153, 


3480 VDU23,228,153,153,153,153,-1,-5,-1 
3498 VDU23,229,153,153,153,153,153,-1 ,- 


3500 VDU23,230,0,55,11,63,78,149,36,34 
3510 VDU23,231,0,236,208,-4,114,169,36, 


3520 VDU23,232,48,56,48,48,32,48,40,40 
3530 VbU23,233,12,28,12,12,4,12,20,20 

3540 VDU23,234,40,56,40,48,32,32,32,48 
3550 VDU23,235,40,56,40,48,40,168,200 ,1 


3560 VDU23,236,20,28,20,12,4,4,4,12 
3570 VDU23,237,20,28,20,12,20,21,19,48 
3580 VDU23,238,24,26,26,126,88,88,24,28 
3590 VDU23,239,24,88,88,126,26,26,24,56 
3600 VDU23,24Ø,2Ø,2Ø,2Ø,22,16,16,16,48 
3610 VDU23,241,40,40,40,104,8,8,8,12 
3620 VDU23,242,0,0,96,159,149,149,96,0 
3630 ENDPROC 


3650 DEFPROCenvs 

3660 ENVELOPE 1,1,0,0,0,0,0,0,90,-1,-2, 
-3,97,97 

3670 ENVELOPE 2,133,8,4,8,3,1,1,126,0,0 
,710,80,0 

3680 ENVELOPE 3,3,-1,-1,-1,70,50,1,100, 
-1,-1,-1Ø,1Ø1,5 

3690 ENVELOPE 4,133,8,4,8,3,1,1,126,0,0 
,710,126,0 

3700 ENDPROC 

3718 : 

3720 MODE7:REPORT:PRINT" at line ";ERL 
3730 *FX15,1 


3330 : 3740 END sæ] 
«—44 There is no doubt that communicating ACKNOWLEDGEMENTS 

across the Tube is not an easy affair. I am grateful to Hugo Tyson, Roger 

However, I hope that these notes will Wilson, Jon Thackray, and David Bell at 

enable you to experiment for yourself and Acorn Computers for ' their valuable 

to make the most of this complex and assistance in the preparation of this 

little-known part of the BBC micro. article. "S 
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BEEBUG 
PO BOX 50, 
Holywell Hill, 
St. Albans ALI 3YS 
CONTRIBUTING TO BEEBUG 
PROGRAMS AND ARTICLES 


We are always seeking good quality 
articles and programs for publica- 
tion in BEEBUG. All contributions 
used are paid for at up to £40 per 
page, but please give us warning of 
anything substantial that you 
intend to write. A leaflet, ‘Notes 
of Guidance for Contributors’ is 
available on receipt of an A5 (or 
larger) SAE. 
In the case of material longer than 
a page, we would prefer this to be 
submitted on cassette or disc in 
machine readable form using 
"Wordwise", “View”, or other 
means, but please ensure an 
adequate written description of 
your contribution is also included. 
If you use cassette, please include a 
backup copy at 300 baud. 

HINTS 
There are prizes of £5 and £10 for 
the best hints each month, plus one 
of £15 for a hint or tip deemed to 
be exceptionally good. 
Please send all editorial material to 
the editorial address above. If you 
require a reply it is essential to 
quote your membership number 
and enclose an SAE. 


SUBSCRIPTIONS 


Send all applications for membership, subscription renewals, subscription 
queries and orders for back issues to the subscriptions address. 


MEMBERSHIP SUBSCRIPTION RATES 


£ 690 6 months (8 issues) UK ONLY) 
£1290 UK - 1 year (10 issues) 


£19.00 Europe, £22.00 Middle East 
£24.00 Americas & Africa, £26.00 Elsewhere 
BACK ISSUES 
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Volume sets 
(10 issues) 
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DESTINATION 


UK 
Europe 
Elsewhere 


All overseas items are sent airmail (please send a sterling cheque). We will 
accept official UK orders but please note that there will be a £1 handling 
charge for orders under £10 that require an invoice. Note that there is no 
VAT on magazines. 


Back issues are for members only, so it is ESSENTIAL to quote your 
membership number with your order. Please note that the BEEBUG 
Reference Card and BEEBUG supplements are not supplied with back 
issues. 
Subscriptions, Back Issues & 
Software Address 


BEEBUG 
PO BOX 109 
St. Johns Road 
High Wycombe HP10 8NP 


Hotline for queries and software orders 


St Albans (0727) 40303 
Manned Mon-Fri 9am-4.30pm 


24hr Answerphone Service for Access and 
Barclaycard orders, and subscriptions 
Penn (049481) 6666 


If you require members’ discount on software it is essential to quote 
your membership number and claim the discount when ordering. 
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Magazine 


Cassette/Disc 


MAY 1986 CASSETTE 
DISC CONTENTS 


MANDELBROT GRAPHICS — a fascinating and colourful 
exploration. 

WINDOWS AND ICONS — complete suite of programs for the 
Phone Book including all the USI utilities from parts 1 and 2. 
MAIL-MERGE FOR FILER — complete BEEBUG Filer program 
including latest update. 

SOFT SCREEN SHUFFLE — adding that slick professional touch to 
your programs. 

DO-IT-YOURSELF BASIC — complete program with all this month's 
additions to Basic. 

*SPOOL GRAPHICS — routine to turn all your Basic graphics into 
machine code. 

BEEBUG WORKSHOP — extended demonstration of stacks and 
queues. 

FIRST COURSE — seven examples of the use of random numbers. 
EBONY CASTLE — the latest quality game from games author 
Jonathan Temple. This could be his best yet. rimis ay 
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All this for £3.00 (cass) £4.75 (disc) + 50p p&p 
Back issues (disc since Vol. 3 No. 1, cass since 
Vol. 1 No. 10) available at the same prices. 
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6 months (5 issues) £25.90. Sir £30 £20 
12 months (10 issues) £50- PSSM 1256 £39 


Prices are inclusive of VAT and postage as applicable. 
Sterling only please. 
Cassette subscriptions can be commuted to disc 
subscription on receipt of £1.70 per issue of the 
subscription left to run. 


All subscription and individual orders to 


BEEBUG, PO BOX 109, St. Johns Road, 
High Wycombe HP10 8NP 
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This offer is limited to one disc per household /institutior 


Please send me a “free” disc, | 
I enclose a cheque for £2.50/Please debit my Barclaycard/Access No 
OR | also enclose an order for software, please charge only £1.50 


Name 
Address 


Specify 40 or 80 Track 
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Beebugsoft 

PO Box 109 

High Wycombe, 
Bucks., HP40 8NP 


